testthat::test_that("Rmd outputs as expected", {
testthat::expect_no_warning(
testthat::expect_no_error(
suppressMessages(capture_output(rmarkdown::render(testthat::test_path("ext/TestMessages.Rmd"))))
)
)
testthat::expect_snapshot_file(testthat::test_path("ext/TestMessages.html"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.