.toListW <- makeCodeWalker(
call = function(e, w)
lapply(e, function(ee) walkCode(ee, w)),
leaf = function(e, w)
e
)
callAsList <- function(expr)
walkCode(expr, .toListW)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.