test_that("catLines() works", {
text <- c("line 1", "line 2", "line 3")
out <- capture.output(catLines(text))
expect_identical(out, text)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.