Nothing
"write.delim" <-
function(x,file="",row.names = FALSE, quote = FALSE, sep = "\t",...) write.table(x, file = file,row.names = row.names, quote = quote, sep = sep,...)
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.