Problems with NSE and lazyeval

nse_sample.R

get_column_ <- function(.data, colname) {
    lazyeval::lazy_eval(colname, .data)
}

get_column <- function(.data, col) {
    # Adding .data as the env argument to lazy() is also not working
    get_column_(.data=.data, colname=lazyeval::lazy(col))
}

mydata <- data.frame(time = c(1,2,3), value = rnorm(3))

# How can I get data from a column with a conflicting name (i.e., 'time')?
get_column(mydata, time)

mebbe:

mydata <- data.frame(time=c(1,2,3),value=rnorm(3))
get_column <- function(.data, colname) {
  lazyeval::lazy_eval(pryr::uneval(colname), data=.data)
}

get_column_ <- function(.data, colname) {
  get(colname, .data)
}

TIME <- "time"

get_column(mydata, time)
get_column(mydata, "time")

get_column_(mydata, TIME)