Nothing
overmessage <- function(msg, prevmsglength) {
msglength <- nchar(msg)
if (prevmsglength>0) {message("\r", appendLF=F)} ##FR: for backslash-b see ?Quotes ...
message(msg, appendLF=F)
return(msglength)
}
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.