# Set the option(AmazonS3 = c(id = secret))
library(RAmazonS3)
if(FALSE) {
o = listBucket("RRupload")
a = getFile("ops.R", "RRupload")
addFile("bar", "RRupload", I("This is raw text"))
addFile("compressed", "RRupload", compress("This is raw text"))
getFile("compressed", "RRupload")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.