Match records from ISI Web of Science with the DOAJ

isi_doaj.R

# load ISI spradsheet
vu_amst <- read.csv("pubs_2012-14 V5 CSV.csv", header = TRUE, sep =";", 
                    na.strings = "")

vu_amst$SN <- as.character(vu_amst$SN) 
# load DOAJ spreadsheet
doaj <- httr::content(httr::GET("http://doaj.org/csv"))

# join ISSN and EISSN as vector
doaj.issn <- c(as.character(doaj$Journal.ISSN..print.version.), 
               as.character(doaj$Journal.EISSN..online.version.))
doaj.issn <- doaj.issn[!doaj.issn == ""]

# match with the vu dataset
vu_amst$DOAJ <-vu_amst$SN %in% doaj.issn

vu_doaj <- vu_amst[vu_amst$DOAJ == TRUE,]
table(vu_doaj$DOAJ, vu_doaj$PY)