if (FALSE) {
result <- get_package_download_bioconductor("bioconductorpackage")
print(result$total_6_months)
head(result$all_data)
#$all_data
#Date Year Month Nb_of_distinct_IPs Nb_of_downloads Cumulative_downloads
#1 2009-01-01 2009 Jan 3341 7053 7053
#2 2009-02-01 2009 Feb 3229 6681 13734
#3 2009-03-01 2009 Mar 3753 8021 21755
#$total_6_months
#[1] 547560
#$total_download
#[1] 7318550
}
Run the code above in your browser using DataLab