context("data fun")

test_that("download and parse generated data functions", {
  skip_slow("checking all data fetch/download/get")
  ns <- asNamespace("icd")
  for (b in c(
  )) {
    inf <- paste("Data fun name:", b)
    expect_true(.exists_in_ns(.get_fetcher_name(b)), info = inf)
    if (.offline() || !.exists_in_cache(b)) {
        "Regardless of interactivity, don't download during tests and",
        inf, "is not in the cache."
    f <- .get_fetcher_fun(b)
    expect_is(f(), "data.frame", info = inf)

Try the icd package in your browser

Any scripts or data that you put into this service are public.

icd documentation built on July 2, 2020, 4:07 a.m.