msg <- function(..., verbose=T) {
if (verbose) {
x <- paste(list(...))
name <- sys.call(sys.parent(1))[[1]]
cat(paste("[", name, "]", sep=""), date(), x, "\n")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.