obtain the total number of downloads of a bioconductor package.

downloadnumber_bioc.R

## Bioconductor package download
library(dplyr)
pkname="cogena"
cogena_download_tabs <- readr::read_tsv(paste0("http://bioconductor.org/packages/stats/bioc/", pkname, "/", pkname, "_stats.tab") )
print("The total downloading number of cogena: ")  
dplyr::filter(cogena_download_tabs, Month=="all") %>% 
    select(Nb_of_downloads) %>% unlist(use.names = FALSE) %>% sum()

#####################################################
# Or via `BiocPkgTools` package
library(dplyr)
library(BiocPkgTools)
all_Nb_downloads <- biocDownloadStats()
print("The total downloading number of cogena: ")  
dplyr::filter(all_Nb_downloads, Package=="cogena", Month=="all", repo=="Software") %>% 
    select(Nb_of_downloads) %>% unlist(use.names = FALSE) %>% sum()
# dplyr::summarise_at(vars(Nb_of_downloads), sum)