tests/testthat/test-build-maps-icd10.R

In jackwasey/icd: Comorbidity Calculations and Tools for ICD-9 and ICD-10 Codes

context("build icd10 maps")

test_that("the icd-10 quan elix comorbidity map is reproduced", {
  skip_multi()
  expect_equivalent(
    icd10_map_quan_elix,
    icd10_generate_map_quan_elix(save_pkg_data = FALSE)
  )
})

test_that("the icd-10 quan deyo comorbidity map is reproduced", {
  skip_multi()
  expect_equivalent(
    icd10_map_quan_deyo,
    icd10_generate_map_quan_deyo(save_pkg_data = FALSE)
  )
})

test_that("the icd-10 elix comorbidity map is reproduced", {
  skip_multi()
  expect_equivalent(
    icd10_map_elix,
    icd10_generate_map_elix(save_pkg_data = FALSE)
  )
  expect_equivalent(
    get_invalid.comorbidity_map(icd10_map_elix, short_code = TRUE), list()
  )
})

test_that("icd-10 ahrq map is reproduced", {
  skip_if_offline()
  skip_on_appveyor()
  skip_on_travis()
  skip_on_cran()
  skip_no_icd_data_raw(
    icd10_fetch_ahrq_sas,
    "AHRQ ICD-10 SAS must be downloaded with icd10_fetch_ahrq_sas"
  )
  expect_equivalent(
    icd10_map_ahrq,
    icd10_parse_ahrq_sas(save_pkg_data = FALSE)
  )
})