Nothing
test_that("throws the expected warning", {
on_r_cmd <- !identical(Sys.getenv("R_CMD"), "")
skip_if(on_r_cmd)
expect_warning(ald_demo, "superseded")
})
test_that("is identical to abcd_demo", {
expect_equal(suppressWarnings(ald_demo), abcd_demo)
})
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.