tests/testthat/helper-cache.R

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()
    )
)
acidgenomics/freerange documentation built on Jan. 8, 2020, 3:45 a.m.