Nothing
test_that("tests for print.linelist", {
x <- make_linelist(cars, date_onset = "dist", date_outcome = "speed")
expect_snapshot_output(print(x))
y <- make_linelist(cars)
expect_snapshot_output(print(y))
})
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.