code.tree <- function(expr) {
lapply(expr, function(part) {
if(is.atomic(part) || is.symbol(part)) part
else if(is.language(part)) code.tree(part)
else part
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.