Nothing
test_that("latch", {
testthat::expect_error(latch.e())
testthat::expect_error(latch.w())
x <- 1
testthat::expect_error(latch.e(x))
testthat::expect_error(latch.w(x))
testthat::expect_error(latch.e(x, "error"))
testthat::expect_error(latch.w(x, "warning"))
le <- latch.e(x, e("Probematic"))
lw <- latch.w(x, w("Suspicious"))
testthat::expect_snapshot_output(le)
testthat::expect_snapshot_output(lw)
testthat::expect_true(is.e(le))
testthat::expect_true(is.w(lw))
testthat::expect_error(resolve(le))
testthat::expect_warning(resolve(lw))
unlatch(le)
unlatch(lw)
})
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.