R/callAsList.R

.toListW  <- makeCodeWalker(
    call = function(e, w)
        lapply(e, function(ee) walkCode(ee, w)),
    leaf = function(e, w)
        e
    )

callAsList <- function(expr)
    walkCode(expr, .toListW)
johnmchambers/XRtools documentation built on May 19, 2019, 5:16 p.m.