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.