R/names_from_expression.R

In csmbuilder: A Collection of Tools for Building Cropping System Models

Defines functions names_from_expression

names_from_expression <- function(expr){
  if(is.call(expr)){
    expr |>
      as.list() |>
      utils::tail(-1) |>
      lapply(names_from_expression) |>
      unlist()
  }else if(is.symbol(expr)){
    as.character(expr)
  }
}

Try the csmbuilder package in your browser