Get all listed coauthors for a given Google Scholar profile

gs_coauthors.R

gs_coauthors <- function(id) {
  # id: a Google Scholar author ID.
  # ^ e.g., for url https://scholar.google.com/citations?user=RWh6yJcAAAAJ&hl=en, 
  #   the ID is 'RWh6yJcAAAAJ').
  require(xml2)
  require(rvest)
  require(dplyr)
  paste0('https://scholar.google.com.au/citations?view_op=list_colleagues&hl=en&json=&user=', id) %>% 
    xml2::read_html() %>% 
    rvest::html_nodes(., '.gs_ai_t') %>% 
    list(author=rvest::html_nodes(., 'h3 > a') %>% rvest::html_text(),
         id=rvest::html_nodes(., 'h3 > a') %>% rvest::html_attr('href'),
         affil=rvest::html_nodes(., '.gs_ai_aff') %>% rvest::html_text(),
         domain=rvest::html_nodes(., '.gs_ai_eml') %>% rvest::html_text()) %>% 
    .[-1] %>% 
    as.data.frame(stringsAsFactors=FALSE) %>% 
    dplyr::as.tbl() %>% 
    dplyr::mutate(domain=sub('Verified email at ', '', domain),
                  domain=sub('.*\\.', '', domain),
                  id=sub('.*=', '', id),
                  surname=tolower(sub('.* ', '', author)))
}