tests/testthat/test-data-fun.R

In jackwasey/icd.data: International Classification of Diseases (ICD) Data

context("data fun")

test_that("download and parse generated data functions", {
  ns <- asNamespace("icd.data")
  for (b in c(
    .data_names,
    "icd10cm_latest"
  )) {
    inf <- paste("Data fun name:", b)
    expect_true(.exists_in_ns(paste0("get_", b)), info = inf)
    if (.offline() && !.exists_in_cache(b)) {
      skip(paste(
        "Regardless of interactivity, don't download during tests and",
        inf, "not in cache"
      ))
    }
    f <- .get_fetcher_fun(b)
    expect_is(f(), "data.frame", info = inf)
  }
})