Get your coauthors for the last 4 years, nsf-style

coauthors_nsf_coa.R

library(scholar)
library(dplyr)
library(purrr)
library(tidyr)

id <- "hJKBuhkAAAAJ"

#me <- get_profile(id)

pubs <- get_publications(id) %>% as_tibble

auth_out <- function(auth_vec){
  strsplit(auth_vec, ", ")[[1]] %>%
    gsub("(.*) (.*)", "\\2, \\1", .) 
}


auth_out_2 <- function(id, pubid){
  auth_vec <- get_complete_authors(id = id, pubid = pubid)
  
  strsplit(auth_vec, ", ")[[1]] %>%
    gsub("(.*) (.*)$", "\\2, \\1", .) 
}

coauthors <- map2_df(pubs$year, pubs$pubid,
        ~tibble(year = .x, author = auth_out_2(id, .y)))

coauthors_filter_unique <- coauthors %>%
  filter(author != "...") %>%
  group_by(author) %>%
  arrange(year) %>%
  slice(1L) %>%
  ungroup()

coauthors_filter_unique %>%
  filter(year>=2016) %>%
  arrange(author)