rlang：在默认赋值函数中使用函数参数

Question

使用rlang，我希望有一个函数既可以在直接调用时也可以在默认情况下作为构造另一个函数参数的一部分传递参数时工作，例如：

refdf = data.frame(x=1:100, y=runif(100,-1,1))

test.helper <- function(z, df) {
  qz <- enquo(z)
  range(eval_tidy(qz, df))
}
test.helper(y, refdf) # works

test.main <- function(z, df, def = test.helper(z, df)) {
  print(def)
}
test.main(y, refdf)
# doesn't work:  Error in eval_tidy(qz, df) : object 'y' not found 

如果相反，我会这样做

refdf = data.frame(x=1:100, y=runif(100,-1,1))

test.helper <- function(z, df) {
  qz <- as_quosure(z)
  range(eval_tidy(qz, df))
}
test.helper(y, refdf)
# doesn't work: Error in is_quosure(x) : object 'y' not found

test.main <- function(z, df, def = test.helper(enquo(z), df)) {
  print(def)
}
test.main(y, refdf)
# now works 

我觉得我错过了什么时候被引用的东西；我可以使用另一种语法来使两者都起作用吗？我知道我可以定义一个单独的test.helper_quo 或类似的东西，但我真的很想在签名中使用test.helper（作为对用户可用功能的额外提示）。

Answer 1

这应该可以工作

library(rlang)

test.helper <- function(z, df) {
  qz <- enquo(z)
  range(eval_tidy(qz, df))
}
test.helper(y, refdf) # works

test.main <- function(z, df, def = test.helper(!!enquo(z), df)) {
  print(def)
}
test.main(y, refdf) # works

# or with rlang >= 0.4.0
test.main <- function(z, df, def = test.helper({{z}}, df)) {
  print(def)
}
test.main(y, refdf) # works

请注意，在def 中，我们需要捕获作为z 传递的quosure，然后将其扩展为test.helper 的调用，以便它自己的enquo 能够看到原始符号。