## #' Journal metric (2017)
## #'
## #' Downloaded from https://www.researchgate.net/post/New_Impact_factors_2017_for_Journals_are_released_now
## #'
## #' # library(readxl)
## #' # library(tidyverse)
## #' #
## #' # impactfactor <- read_excel("JournalImpactfactor_2017.xls", skip=2) %>%
## #' # dplyr::select(Journal = `Full Journal Title`,
## #' # Cites = `Total Cites`,
## #' # ImpactFactor = `Journal Impact Factor`,
## #' # Eigenfactor = `Eigenfactor Score`) %>%
## #' # dplyr::mutate(Cites = as.numeric(stringr::str_remove_all(Cites, ",")),
## #' # ImpactFactor = as.numeric(stringr::str_remove_all(ImpactFactor, ",")),
## #' # Eigenfactor = as.numeric(stringr::str_remove_all(Eigenfactor, ",")))
## #'
## #' # save(impactfactor, file="impactfactor.rda")
## #'
####### save(impactfactor, file = "~/github/scholar/R/sysdata.rda", compress="xz")
####
## #' @format A data frame with journal metrics.
## #' \describe{
## #' \item{Journal}{Journal title}
## #' \item{Cites}{Total cites}
## #' \item{ImpactFactor}{Impact factor}
## #' \item{Eigenfactor}{Eigenfactor}
## #' }
## "impactfactor"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.