Nothing
context("Testing utility functions")
test_that("break down ICNARC code", {
expect_equivalent(icnarc.breakdown("1.2.3.4.5"), "1.2.3")
expect_equivalent(icnarc.breakdown("1.2.3.4.5", 4), "1.2.3.4")
expect_equivalent(icnarc.breakdown("10.2.3.4.5"), "10.2.3")
expect_equivalent(icnarc.breakdown("01.2.3.4.5"), "1.2.3")
expect_equivalent(icnarc.breakdown("1.2.3"), "1.2.3")
expect_equivalent(icnarc.breakdown("1.2"), "1.2")
expect_equivalent(icnarc.breakdown("1"), "1")
expect_equivalent(icnarc.breakdown(c("1", "1.2.3.4")), c("1", "1.2.3"))
})
test_that("ICNARC Conversion",{
expect_match(icnarc2diagnosis('1'), "Surgical")
expect_match(icnarc2diagnosis('2'), "Nonsurgical")
expect_true(icnarc2diagnosis("1.1") == "Respiratory (Surgical)")
expect_true(icnarc2diagnosis("2.1") == "Respiratory (Nonsurgical)")
expect_true(icnarc2diagnosis("02.01") == "Respiratory (Nonsurgical)")
expect_true(icnarc2diagnosis("02.01", FALSE) == "Respiratory")
expect_true(icnarc2diagnosis("02.01", levels=1) == "Nonsurgical")
})
test_that("extractIndex table", {
expect_true(class(extract_index_table()) == "list")
expect_true(all(unique(unlist(extract_index_table())) %in%
c("item1d", "time","item2d", "meta")))
})
test_that("index utility functions", {
out <- capture.output(all <- lookup.items(''))
expect_equal(length(all), length(ITEM_REF))
expect_equal(class(site.info()), "data.frame")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.