Nothing
ftable2data.frame <- function(x,...){
y <- format(x,quote=FALSE)
z <- data.frame(y[-1,],stringsAsFactors=FALSE)
names(z) <- y[1,]
z
}
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.