test_that("list_onsets works", {
onsets <- list_onsets()
testthat::expect_length(onsets,12)
onsets <- list_onsets(exclude = c("Antenatal","Fetal"),
include_na = FALSE)
testthat::expect_length(onsets,9)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.