test_that("household_type works", {
a <- household_type(data = ech::toy_ech_2018)
testthat::expect_true("household_type" %in% names(a))
testthat::expect_message(household_type(a))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.