Nothing
createMessage <- function(x, width.cutoff=45, default='x', collapse='; ',
endchars='...'){
if(sum(nchar(x))<1){
x <- default
}
x. <- paste(x, collapse=collapse)
nchx <- nchar(x.)
maxch <- (width.cutoff-nchar(endchars))
if(nchx>maxch){
x2 <- substring(x., 1, maxch)
x. <- paste0(x2, endchars)
}
x.
}
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.