Nothing
truncString<-function(x,maxlen=20,justify="left") {
toolong<-nzchar(x) > maxlen
maxwidth<-ifelse(toolong,maxlen-3,maxlen)
chopx<-substr(x,1,maxwidth)
lenx<-length(x)
for(i in 1:length(x)) if(toolong[i]) chopx[i]<-paste(chopx[i],"...",sep="")
return(formatC(chopx,width=maxlen,flag=ifelse(justify=="left","-"," ")))
}
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.