test_that("captures expectations; doesn't produce any output", {
reporter <- SilentReporter$new()
expect_snapshot_reporter(reporter)
expect_snapshot_value(length(reporter$expectations()))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.