test_that("show attributes", {
x <- structure(1:100, x = "a string", y = 1:20, z = data.frame(x = 1:3))
expect_snapshot(obj_str(x))
expect_snapshot(obj_str(mtcars))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.