Как убрать кавычку в объекте формулы?

Question

Вот пример:

formula <-  Y ~ A + B + C + D + E + F + G
pryr::substitute_q(formula, list(Y = as.name('Ya + Yb')))
# `Ya + Yb` ~ A + B + C + D + E + F + G

, на что я надеюсь:

Ya + Yb ~ A + B + C + D + E + F + G

Я пробовал noquote(), as.symbol(), as.name() и так далеевключен, но ни один из них не работает.

Answer 1

Почему бы не использовать update из базы?

update(formula, Ya + Yb ~ .)
# Ya + Yb ~ A + B + C + D + E + F + G

или

x <- "Ya + Yb"
update(formula, paste(x, "~ ."))
# Ya + Yb ~ A + B + C + D + E + F + G

Answer 2

pryr::substitute_q(formula, list(Y = quote(Ya + Yb)))
# Ya + Yb ~ A + B + C + D + E + F + G