Nothing
read.documents <-
function (filename = "mult.dat")
{
one <- scan(filename, what = "", sep = "\n")
two <- chartr(":", " ", one)
three <- strsplit(two, " ", fixed = TRUE)
lapply(three, function(x) matrix(as.integer(x[-1]), nrow = 2))
}
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.