expect_no_error <- function(expr) {
err <- FALSE
tryCatch(force(expr),
error = function(e) {
err <<- TRUE
}
)
expect(!err, "Expected no error, but had error.")
invisible(NULL)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.