debugPrintObj = function(obj) {
msg = paste("=debug R========\n", paste(capture.output(print(obj)), collapse="\n"))
message(msg)
}
debugPrintString = function(str) {
msg = paste("=debug R==", str)
message(msg)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.