tests/testthat/helper-magmaR.R

In magmaR: R-Client for 'Magma' of the 'UCSF Mount Etna Data Library'

### This code will be run before all test-____.R files.

### Setup relating to vcr
library("vcr")

# vcr_dir <- "../fixtures"
# if (!nzchar(Sys.getenv("TOKEN"))) {
#     if (dir.exists(vcr_dir)) {
#         Sys.setenv("TOKEN" = "foobar")
#     } else {
#         stop("No API key nor cassettes, tests cannot be run.",
#             call. = FALSE)
#     }
# }

TOKEN <- .get_sysenv_or_mock("TOKEN")
URL <- magmaRset("")$url

invisible(vcr::vcr_configure(
    filter_sensitive_data = list("<<<my_token>>>" = TOKEN),
    dir = "../fixtures"
))
vcr::check_cassette_names()