Nothing
extract.list <-
function(L, s1, s2=NULL) {
if(is.null(s2)) {
sapply(L,function(x) with(x,get(s1)))
} else {
sapply(L,function(x) with(with(x,get(s1)),get(s2)) )
}
}
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.