test_that("show is stable", {
load("testdata/iris_test_output.rds")
load("testdata/iris_test.rds")
appendix(iris_test) <- list("a" = "hello")
expect_equal(
capture.output(iris_test),
iris_test_output
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.