Nothing
context("stops (errors)")
test_that("stop_via", {
expect_error(stop_via("qed"), "qed")
expect_error(stop_via("qed", FUNCTION = "abc"))
expect_match(tryCatch(stop_via("qed", FUNCTION = "abc"),
error = function(e) deparse(e$c)),
"abc")
})
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.