context("my hello script")
test_that("hello function says hi or errors", {
err <- "`yay` must be logical."
msg <- "Hello, world!"
expect_equal(hello(TRUE), msg)
expect_error(hello(5), err)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.