怪异的dplyr NSE：在mutate内部的自定义函数中使用NSE

Question

在＜code＞dplyr：：mutate＜/code＞中的自定义函数中使用NSE时，我遇到了一个问题。考虑以下代码：

require(tidyverse)

f <- function(var) {
  varname <- deparse(substitute(var))
  v1      <- as.name(sprintf("%s.Width", varname))
  v2      <- as.name(sprintf("%s.Length", varname))
  return(substitute(v1 + v2))
}

iris %>% 
  mutate(
    test = f(Sepal) %>% eval()
  )

ff <- function(var) {
  varname <- deparse(substitute(var))
  v1      <- as.name(sprintf("%s.Width", varname))
  v2      <- as.name(sprintf("%s.Length", varname))
  substitute(v1 + v2) %>% eval.parent(n = 1)
}

iris %>% 
  mutate(
    test = ff(Sepal)
  )

这里f工作正常，但需要外部调用val（）以在mutate（）环境中执行代码。这当然有点难看，并导致了很多样板代码。我对制作这项工作的最佳猜测是ff，它试图在其调用环境中评估构造的表达式-我预计这是mutate（）环境。但是，这会引发一个未找到变量的错误。关于如何使其工作以及潜在问题是什么的任何想法？本质上，我希望允许在dplyr动词中自定义“宏”。

Answer 1

使用 ！！ 整洁的 eval “unquote” 运算符：

ff <- function(var) {
  varname <- deparse(substitute(var))
  v1      <- as.name(sprintf("%s.Width", varname))
  v2      <- as.name(sprintf("%s.Length", varname))
  substitute(v1 + v2)
}

iris %>% 
  head() %>% 
  mutate(
    test = !! ff(Sepal)
  )