library(here)
dl_url <- "http://software.broadinstitute.org/gsea/msigdb/download_file.jsp?filePath=/resources/msigdb/6.2/c2.cp.reactome.v6.2.symbols.gmt"
proj_dir <- here()
download.file(dl_url,
file.path(proj_dir,
"inst/extdata/c2.cp.reactome.v6.2.symbols.gmt"))
R.utils::gzip(file.path(proj_dir,
"inst/extdata/c2.cp.reactome.v6.2.symbols.gmt"))
# hsPBMC_markers.txt taken from garnett website
dl_url <- "https://cole-trapnell-lab.github.io/garnett/marker_files/hsPBMC_markers.txt"
download.file(dl_url,
file.path(proj_dir,
"inst/extdata/c2.cp.reactome.v6.2.symbols.gmt"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.