test_that("messager works", {
msg <- "Hello echoverse"
msg_out <- utils::capture.output(messager(msg),
type = "message")
testthat::expect_equal(msg, msg_out)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.