assert <- function(statement, msg="")
{
if (!statement)
{
stop(msg, call.=(msg==""))
}
}
ifnull <- function(value, default)
{
if (is.null(value)) { return(default) }
return(value)
}
cmsg <- function(verbose, fmt, ...)
{
if (verbose)
{
cat(sprintf(fmt, ...))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.