library(knitr) library(BiocStyle) opts_chunk$set(message = FALSE, warning = FALSE)
library(BiocPkgTools) dls = biocDownloadStats() pkl = biocPkgList() pkl_me = pkl[pkl$Package==params$package,]
library(ggplot2) library(dplyr) downloads = dls %>% filter(Package == params$package) %>% filter(!is.na(Date)) ggplot(downloads, aes(y=Nb_of_distinct_IPs, x=Date)) + geom_bar(stat='identity') + ylab("Distinct IP Downloads") + ggtitle("Number of Downloads")
The r params$package
package depends on r length(pkl_me$Depends[1][[1]])
additional packages and suggests
r length(pkl_me$Suggests[1][[1]])
more packages.
cat("- Depends\n") cat(sapply(pkl_me$Depends[1][[1]], function(x) {sprintf(" - %s\n", x)}))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.