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"
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.