if (!isTRUE(hasInternet())) {
warning("No Internet connection detected.")
return()
}
dir.create("cache", showWarnings = FALSE)
files <- c(
"ensembl.gff3",
"ensembl.gtf",
"flybase.gtf",
"gencode.gff3",
"gencode.gtf",
"refseq.gff3",
"refseq.gtf",
"wormbase.gtf"
)
mapply(
FUN = function(remoteDir, file, envir) {
destfile <- file.path("cache", file)
if (!file.exists(destfile)) {
utils::download.file(
url = paste(remoteDir, file, sep = "/"),
destfile = destfile
)
}
},
file = files,
MoreArgs = list(
remoteDir = freerangeTestsURL,
envir = environment()
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.