log = function(..., collapse=NULL) {
msg = paste0(">>> ", paste0(..., collapse=collapse))
message(msg)
# cat(file=stderr(), paste0(msg, "\n"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.