if(!is_sqlite_available()) {
return(NA)
}
exp_h3_readcodes<-c(".....","H....","X0003","XaBVJ")
dict<-setup_test_dict("NHSReadV3",F)
context("READ V3 parent code retrieval functions")
test_that("get_parent_codes returns all READ v3 ancestor codes when default parameters",{
skip_if_not(is_sqlite_available(),"SQLite must be installed to run these tests")
skip_on_cran()
expect_parent_codes(dict,"H3...",exp_h3_readcodes)
expect_parent_codes(dict,"H31..",c(".....", "H....", "X0003", "X104H", "X104d", "XaBVJ", "XaDtP"
))
expect_parent_codes(dict,"H32..",c(".....", "H....", "X0003", "XaBVJ"))
})
test_that("get_parent_codes returns filtered READ v3 ancestor codes when immediate_parents flag",{
skip_if_not(is_sqlite_available(),"SQLite must be installed to run these tests")
skip_on_cran()
expect_parent_codes(dict,"H3...",c("H...."),immediate=T)
expect_parent_codes(dict,"H31..",c("XaDtP"),immediate=T)
expect_parent_codes(dict,"H32..",c("H...."),immediate=T)
})
test_that("get_parent_codes returns filtered READ v3 descendent codes when current_only flag",{
skip_if_not(is_sqlite_available(),"SQLite must be installed to run these tests")
skip_on_cran()
expect_parent_codes(dict,"H3...",c(".....", "H....", "X0003", "XaBVJ"),current=T)
expect_parent_codes(dict,"H31..",c(".....", "H....", "X0003", "X104H", "X104d", "XaBVJ", "XaDtP"
),current=T)
expect_parent_codes(dict,"H32..",c(".....", "H....", "X0003", "XaBVJ"),current=T)
})
test_that("get_parent_codes returns filtered READ v3 descendent codes when immediate_descendents and current_only flag",{
skip_if_not(is_sqlite_available(),"SQLite must be installed to run these tests")
skip_on_cran()
expect_parent_codes(dict,"H3...",c("H...."),immediate=T)
expect_parent_codes(dict,"H31..",c("XaDtP"),immediate=T)
expect_parent_codes(dict,"H32..",c("H...."),immediate=T)
})
rcc_disconnect(dict)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.