Licenses in OpenAPC dataset

license.md

Licenses found

download_apc <- function(path = NULL, dir = "tmp", file = "apc_de.csv"){
  if(is.null(path)) {
    path <- c("https://raw.githubusercontent.com/OpenAPC/openapc-de/master/data/apc_de.csv")
  } 
  dir.create(dir) 
  download.file(url = path, destfile = paste(dir, file, sep = "/"), method = "curl")
  read.csv(paste(dir, file, sep = "/"), header = T,sep =",")
}

my.apc <- download_apc()

tt <- as.data.frame(table(my.apc$license_ref, exclude = NULL))
colnames(tt) <- c("License", "Articles")
knitr::kable(tt, row.names = F)

License	Articles
http://creativecommons.org/licenses/by/3.0/	74
http://www.elsevier.com/tdm/userlicense/1.0/	7
NA	2085

per publisher

tt <- as.data.frame(table(my.apc$publisher, my.apc$license_ref))
tt <- tt[tt$Freq > 0,]
colnames(tt) <- c("Publisher", "License", "Articles")
knitr::kable(tt, row.names = F)

Publisher	License	Articles
AIP Publishing	http://creativecommons.org/licenses/by/3.0/	1
Copernicus GmbH	http://creativecommons.org/licenses/by/3.0/	36
Hindawi Publishing Corporation	http://creativecommons.org/licenses/by/3.0/	35
Pensoft Publishers	http://creativecommons.org/licenses/by/3.0/	2
Elsevier BV	http://www.elsevier.com/tdm/userlicense/1.0/	7