Nothing
requireR(function() {
x <- list(1, 2, 3, 5, 8)
list(
setStart = function(y) {
x[[1]] <<- y
},
setEnd = function(y) {
x[[length(x)]] <<- y
},
get = function() {
x
}
)
})
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.