Nothing
report <- function(msg, lvl)
{
premsg <- ""
if (lvl > 1) {
premsg <- paste(rep(" | ",(lvl-1)), sep="")
}
if (lvl > 0) {
premsg <- paste(premsg, " |--",sep="")
}
msg <- paste(premsg,msg,sep="")
message(msg);
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.