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 } ) })
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.