test_that("example_string_with_specials() works", {
f <- kwb.fakin:::example_string_with_specials
expect_error(f())
expect_error(f("en"))
expect_error(f("fr"))
expect_is(f("de"), "character")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.