Nothing
`shortName` <-
function (aString, aWidth){
numCh <- nchar(aString)
aString2 <- substr(aString, 1, aWidth) # Limit names of terms to 'aWidth' characters
aString3 <- paste(aString2, ifelse(numCh > (aWidth-5), "...", ""), sep="")
return(aString3)
}
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.