install.packages("scholar") library(scholar) jn = c("bioinformatics", "methods in ecology and evolution", "molecular biosystems", "molecular biology and evolution") get_impactfactor(jn) jn <- agrep("bioinformatics", scholar:::impactfactor$Journal, ignore.case=T, value=T, max.distance=0.05) get_impactfactor(jn)
require(scholar) require(dpylr) x = get_publications("DO5oG40AAAAJ") y = x %>% select(year, author, journal, title) %>% mutate(impactFactor = get_impactfactor(journal)$ImpactFactor) %>% filter(grepl("^G Yu", author)) %>% group_by(year) y y %>% summarize(total_IF = sum(impactFactor, na.rm=T), mean_IF = mean(impactFactor, na.rm=T))