passing user expressions to inner functions, tidyeval and base

nse_hell.R

# tidyeval version: tidy_outer returns
# the user expression
#
# expr quotes you
# enexpr quotes user

tidy_outer <- function(x) {
  tidy_inner(!!rlang::enexpr(x)) 
}

tidy_inner <- function(x) {
  rlang::enexpr(x)
}

# base version: base_outer returns the
# user expression.
#
# - quote quotes you
# - substitute quotes user

base_outer <- function(x) {
  eval(substitute(base_inner(x)))
}

base_inner <- function(x) {
  substitute(x)
}