I also attach a csv file with the list of authors.
author_table_scholar.csv

The code i use to get the number of publications and the number of citations is the following:

function that gets the scholar id of an author and a range in years and

returns the number of citations of all publications in that range

citations_in_years <- function (id, start_year, end_year) {
pubs_in_range <- get_publications(id) %>% filter(!is.na(year) & year>=start_year & year<=end_year)
sum(pubs_in_range$cites)
}

#returns the number of papers in a given time range
papers_in_years <- function (id, start_year, end_year) {
pubs_in_range <- get_publications(id) %>% filter(!is.na(year) & year>=start_year & year<=end_year)
nrow(pubs_in_range)
}

#add them to author_table
author_table <- author_table %>% rowwise() %>%
mutate(num_of_papers_2016_2020=papers_in_years(scholar_id,2016,2020),
cites_of_papers_2016_2020=citations_in_years(scholar_id,2016,2020))

Unfortunately I'm calling get_publications twice but i couldn't do it another way with mutate.

from scholar.