Nothing
test_that("option_of_default works", {
# value from list
expect_equal(option_or_default(list("A" = 25), "A", 20), 25)
# default value
expect_equal(option_or_default(list("A" = 25), "B", 20), 20)
})
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.