assert <- function(expression, message) { if(!all(expression)) { stop(if(is.null(message)) "Error" else message) } }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.