Nothing
centerText <- function(x, width=getOption("width"))
{
retval <- vector(length=length(x), mode="character")
for(i in 1:length(x))
{
text <- trim(x[i])
textWidth <- nchar(text)
nspaces <- floor((width - textWidth)/2)
spaces <- paste(rep(" ",nspaces), sep="", collapse="")
retval[i] <- paste(spaces, text, sep="", collapse="\n")
}
retval
}
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.