Nothing
test_that("possibly returns default value on failure", {
expect_identical(possibly(log, NA_real_)("a"), NA_real_)
})
test_that("possibly emits a message on failure if quiet = FALSE", {
f <- function(...) stop("tilt")
expect_message({
possibly(f, NA_real_, quiet = FALSE)()
}, regexp = "tilt")
})
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.