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()