Nothing
input <- scan("input.dat", quiet=TRUE)
message("Sorting numbers ... estimated run time is 3 seconds")
Sys.sleep(3)
output <- sort(input)
write(output, "output.dat", ncolumn=1)
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.