printf <- function(...) print(noquote(sprintf(...)))
install.packages("BiocManager", repos="https://cran.rstudio.com")
biocGet <- function(pkgs){
library(BiocManager)
BiocManager::install(pkgs, update=FALSE)
}
code.pkgs <- c("shinydashboard",
"DT",
"shinyjs",
"shinyWidgets",
"shinyBS",
"later",
"ggplot2"
)
for(code.pkg in code.pkgs){
suppressWarnings(
needed <- !require(code.pkg, character.only=TRUE, lib.loc=my.user.library, quiet=TRUE)
)
printf("%s needed? %s", code.pkg, needed)
if(needed)
biocGet(code.pkg)
} # for
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.