var_eval(list(quote(mpg:wt)), mtcars)
select <- lapply(names(mtcars), as.name)
select_eval(list(quote(mpg:wt)), select)
mutate <- c(select, cyl2 = quote(cyl * 2))
select_eval(list(quote(gear:cyl2)), mutate)
Run the code above in your browser using DataLab