Nothing
library(gdata)
saveto <- tempfile(pattern = "test.txt", tmpdir = tempdir())
write.fwf(x = data.frame(a=1:length(LETTERS), b=LETTERS),
file=saveto, eol="\r\n")
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.