Создание новой формулы типа `~ x + y` с использованием` rlang`

Важно помнить, что rlang::quo - это не то же самое, что base::quote. На практике последний по сути эквивалентен rlang::expr. Интерполяция с {{ создает запросы с соответствующими средами, поэтому это ярлык для случая, подобного следующему:

x <- 0

with_curly <- function(foo) {
  x <- 1
  rlang::eval_tidy({{ foo }})
}

with_curly(x)
# 0

with_enquo <- function(foo) {
  x <- 1
  rlang::eval_tidy(rlang::enquo(foo))
}

with_enquo(x)
# 0

С другой стороны, enexpr действует как quote, но для того, что пользователь ввел:

with_enexpr <- function(foo) {
  x <- 1
  rlang::eval_tidy(rlang::enexpr(foo))
}

with_enexpr(x)
# 1

По моему опыту, quosures плохо сочетаются (или вообще не работают) с какой-либо функцией, которая не поддерживает их явно, и многие функции R ожидают "сырых" выражений. Даже во время печати вы можете увидеть, что они обрабатываются по-разному:

foo <- function(foo) {
  rlang::qq_show({{ foo }})
  rlang::qq_show(!!rlang::enexpr(foo))
  invisible()
}

foo(x)
# ^x
# x

Это означает, что, по крайней мере, на данный момент, нет ярлыка для создания простых выражений, и вам придется делать это долгим путем:

РЕДАКТИРОВАТЬ: не совсем так. Для простых выражений нет ярлыка, но вы все равно можете создавать формулы с кавычками. См. Ответ Moody и комментарии ниже.

Также стоит время от времени делать шаг назад и помнить, что вам не везде нужна нестандартная оценка:

tryfn <- function(data, x, y) {
  stats::cor.test(
    formula = as.formula(glue::glue("~ {x} + {y}")),
    data = data,
    method = "pearson"
  )
}

tryfn(mtcars, "wt", "mpg")

Ваши проблемы возникают из-за того, что:

• new_formula() требует вызова или именования объектов в качестве входных данных, и вы ожидаете, что он будет использовать NSE:

rlang::new_formula(NULL, wt + mpg)
#> Error in rlang::new_formula(NULL, wt + mpg): objet 'wt' introuvable
rlang::new_formula(NULL, quote(wt + mpg))
#> ~wt + mpg

• new_formula() не поддерживает квазицитирование:

quoted_expr <- quote(wt + mpg)
rlang::new_formula(NULL, !!quote(quoted_expr))
#> Error in !quote(quoted_expr): type de l'argument incorrect

(посмотрите, как !! не распознается)

Способ обойти обе эти проблемы - создать выражение в кавычках из функции, которая поддерживает квазиквотацию. Эта функция expr():

tryfn <- function(data, x, y) {
  stats::cor.test(
    formula = rlang::new_formula(NULL, rlang::expr({{x}} + {{y}})),
    data = data,
    method = "pearson"
  )
}

tryfn(mtcars, wt, mpg)
#> 
#>  Pearson's product-moment correlation
#> 
#> data:  wt and mpg
#> t = -9.559, df = 30, p-value = 1.294e-10
#> alternative hypothesis: true correlation is not equal to 0
#> 95 percent confidence interval:
#>  -0.9338264 -0.7440872
#> sample estimates:
#>        cor 
#> -0.8676594