R/values.R

In lessR: Less Code with More Comprehensive Results

values <-
function(x, data=d, ...) {

  # get actual variable name before potential call of data$x
  x.name <- deparse(substitute(x)) 

  # get data frame name
  dname <- deparse(substitute(data))

  # see if variable exists in the data frame, if x not in style Env or
  #   function call
  in.global <- df.or.global(x.name, dname, role="x", fun.name="values")
  if (!missing(x) && !in.global) .xcheck(x.name, dname, names(data))

  if (!in.global)
    x.call <- eval(substitute(data$x))
  else {  # vars that are function names get assigned to style
    x.call <- x
    if (is.function(x.call)) x.call <- eval(substitute(data$x))
  }

  print(x.call, ...)

}