Nothing
context("internal")
test_that("internal", {
e <- list2env(list(a = 1), parent = emptyenv())
expect_error(try_list(expression(symbol1, symbol2), envir = e))
expect_equal(try_list(expression(symbol1, symbol2), 0, envir = e), 0)
})
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.