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.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.