test_that("numberedEnumeration() works", {
f <- kwb.utils:::numberedEnumeration
expect_error(f())
y <- f(LETTERS[1:5])
expect_type(y, "character")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.