Nothing
vmessage <- function(verbose, pri = 1, datetime = TRUE, ...) {
if (verbose %in% c('v', 'vv', 'vvv')[pri:3]) {
if (datetime) {
message('[', format(Sys.time(), '%H:%M:%S'), '] ', ...)
} else {
message(...)
}
flush.console()
}
}
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.