tests/testthat/test-explain-icd10.R

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

context("explain ICD-10-CM codes")
# see also test-explain-who
test_that("basic explain ICD-10 codes", {
  i10 <- list(
    "A00" = "Cholera",
    "Z998" = "Dependence on other enabling machines and devices"
  )
  for (n in names(i10)) {
    expect_identical(x <- explain_code(n), i10[[n]])
    expect_identical(explain_code(as.icd10(n)), x)
    expect_identical(explain_code(as.icd10cm(n)), x)
  }
})

test_that("some majors seem to differ when generated on Mac vs Linux", {
  expect_identical(
    explain_code.icd10cm("K87", brief = TRUE),
    "Disord of GB, biliary trac and pancreas in dis classd elswhr"
  )
  expect_identical(
    explain_code.icd10cm("I79", brief = TRUE),
    "Disord of art, arterioles and capilare in dis classd elswhr"
  )
})