Number of downloads from CRAN/Bioc/conda

r_pkg_downloads.R

library(rvest)
library(jsonlite)
downloads_from_conda = function(pkg) {
	x = read_html(paste0("https://anaconda.org/search?q=r-", pkg))
	tb = html_nodes(x, "table") %>% html_table()
	if(length(tb) > 0) {
		tb = tb[[1]]
		sum(tb[, 2])
	} else {
		0
	}
}
downloads_from_cran = function(pkg) {
	x = read_json(paste0("https://cranlogs.r-pkg.org/downloads/total/2001-01-01:2114-01-01/", pkg))
	x[[1]]$downloads
}
downloads_from_bioc = function(pkg) {
	df = read.table(paste0("http://bioconductor.org/packages/stats/bioc/", pkg, "/", pkg, "_stats.tab"), header = TRUE)
	sum(df[df[, "Month"] != "all", "Nb_of_downloads"])
}