Download 2014 Impact factors from Citefactor.org

ifactors.R

####################################
### DOWNLOAD IMPACT FACTORS 2014 ###
####################################
 
# url: http://www.citefactor.org/journal-impact-factor-list-2014.html
# download lots of tables, then join them
# tabs <- getURL(url)
# tabs <- readHTMLTable(tabs, stringsAsFactors = F)

library(RCurl)
library(XML)
 
index <- toupper(letters)
index[1] <- "0-A"
url <- paste("www.citefactor.org/journal-impact-factor-list-2014_", index, ".html", sep="", collapse=";")
urls <- strsplit(url, ";") [[1]]
 
Datab <- lapply(urls, function(x){
  readHTMLTable(
    getURL(x),
    stringsAsFactors=F)[[2]]
})
ifactors <- do.call(rbind, Datab)
names(ifactors) <- c('index','journal.citefactor','ISSN','if2013','if2012','if2011','if2010','if2009','if2008')

# save(ifactors, file="ifactors.RData")
message("ifactors database succesfully downloaded")