Nothing
test_that("S4Example names", {
expect_silent(s4ex <- S4Example(data = list(a = 1, b = 2)))
expect_equal(names(s4ex), c("a", "b"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.