Refereed Publications

library(tinyscholar)
library(tidyverse)
library(glue)

sp <- tinyscholar("Y7_E1EIAAAAJ", sortby_date = T)

st <- scholar_table(sp)

as.data.frame(st$publications) %>%
  as_tibble() %>%
  mutate(formatted_authors = gsub("S Mukerjee", "**S Mukerjee**", authors)) %>%
  mutate(citation = glue("{formatted_authors} ({year}) {title}. {venue}")) %>%
  select(citation) %>% DT::datatable()