R/col_name.R

In paulponcet/lplyr: 'dplyr' Verbs for Lists and Other Verbs for Data Frames

# 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)
}