is_blank <- function(value) {
return(is.null(value) || value == "")
}
vmsg <- function(verbose, msg, ...) {
if (isTRUE(verbose)) {
message(sprintf(msg, ...))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.