inst/tinytest/test_fetch.R

In enricoschumann/BISdata: Download Data from the Bank for International Settlements (BIS)

if (Sys.getenv("ES_PACKAGE_TESTING_73179826243954") == "true") {

    archive.dir <- "~/Downloads/BISdata"
    if (!dir.exists(archive.dir))
        dir.create(archive.dir)


    x <- BISdata::datasets()
    for (f in x$filename) {
        data <- try(BISdata::fetch_dataset(dest.dir = archive.dir,
                                       dataset = f))
    }
}