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