context("Interventions")
tmp <- tempfile()
setup({
# writeLines("TEST DATA", tmp)
})
teardown({
print( readLines(tmp) )
unlink(tmp)
})
test_that('return interventions', {
# DADComorbidity returns a data table.
r_dt <- DADInterventions("G20")
expect_known_output(r_dt, tmp, print = TRUE)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.