context("That's not my...")
library(thatsnotmy)
test_that("thatsnotmy returns a string", {
expect_output(thatsnotmy(), "That's not my")
})
test_that("silent argument suppresses output", {
expect_silent(thatsnotmy(silent = TRUE))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.