Nothing
context("Assertions")
test_that("we can make assertions", {
setOutputLevel(OL$Info)
expect_null(assert(1 == 1, "Arithmetic failure"))
expect_output(assert(NA == NA, "NAs don't test equal to themselves", level=OL$Info), "NAs don't test equal to themselves")
# The case below produces an error
expect_output(assert(3 + "n", "Numeric and character vectors can't be added", level=Info), "Numeric and character vectors can't be added")
})
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.