R/col_name.R

# from tidyr
col_name <-
function (x, 
          default = stop("Please supply column name", call. = FALSE)) 
{
  if (is.character(x)) 
    return(x)
  if (identical(x, quote(expr = ))) 
    return(default)
  if (is.name(x)) 
    return(as.character(x))
  if (is.null(x)) 
    return(x)
  stop("Invalid column specification", call. = FALSE)
}
paulponcet/lplyr documentation built on May 24, 2019, 10:32 p.m.