test_that("fails() works", {
f <- kwb.fakin:::fails
expect_true(f(stop()))
expect_false(f(x <- 1))
expect_true(f(mean()))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.