# Write message to stdout and immediately flush
scat <- function(...)
{
DEBUG <- options()$DEBUG
if( !is.null(DEBUG) && DEBUG)
{
cat("### ", file=stderr())
cat(..., file=stderr())
cat(" ###\n", file=stderr())
flush(stderr())
}
invisible(NULL)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.