Nothing
"blockTreeToList" <-
function (tree)
{
result <- list(tree$block)
if (!is.null((tree$sub.blocks)))
for (i in 1:length(tree$sub.blocks)) result <- append(result,
blockTreeToList(tree$sub.blocks[[i]]))
class(result) <- "dg.BlockList"
return(result)
}
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.