如何为存储中间dplyr输出的变量名传递参数？

Question

xfun <- function(yvar, newvar){
  df %>% 
    pull(yvar) %>% 
    lmoms(., nmom=4) %>%    # Estimates some parameters
    {. ->> newvar}            # Stores list
}


xfun("var2", "newvar2")

但这不起作用。我得到新的输出。

但这可行：

xfun <- function(yvar){
  df %>% 
    pull(yvar) %>% 
    lmoms(., nmom=4) %>%    # Estimates some parameters
    {. ->> "newvar2"}            # Stores list
}


xfun("var2")

那么，如何传递newvar作为函数参数来存储此中间输出？

对实现这一目标的方法也持开放态度。