R/code.tree.R

Defines functions code.tree

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
  })
}
renkun-ken/coder documentation built on May 27, 2019, 4:55 a.m.