为什么 Tidyeval 引号在 lambdas 中失败？

Question

下面是一个简单的例子，说明如何使用引号来动态重命名 tibble 列。

quoteExample = function() {  
   new_name = quo("new_name_value"); 
   tibble(old_name=list(1,2,3)) %>% 
       rename( !! quo_name(new_name) := old_name) 
}

quoteExample()

结果= tibble(new_name_value=list(1,2,3))

下面是相同的简单示例，但这次是在 lamda 中。

{function () 
   new_name = quo("new_name_value"); 
   tibble(old_name=list(1,2,3)) %>% 
       rename( !! quo_name(new_name) := old_name)
} ()

Result= is_quosure(quo) 中的错误：找不到对象“new_name”

为什么引号在 lamda 中失败，但在命名函数中却没有？这种差异从何而来？难道我做错了什么？

编辑：上面的例子已经被 Akrun 解决了，但是下面是另一个失败的例子，尽管建议的解决方案已经被应用了：

df = tibble(data=list(tibble(old_name= c(1,2,3))))

df %>% 
   mutate(data = map(data, (function(d){
      new_name = quo("new_value")
      d %>% rename( !! quo_name(new_name) := old_name)
    })))

结果：is_quosure(quo) 中的错误：找不到对象“new_name”

这是因为另一个问题而失败吗？

Answer 1

这与here 的问题基本相同。主要原因是!! 运算符强制立即评估其参数，在创建匿名函数环境之前。在您的情况下，!! quo_name(new_name) 尝试查找 new_name 相对于整个表达式的定义（即整个 mutate(...) 表达式）。由于new_name 是在表达式本身中定义的，因此最终会产生循环依赖，导致“找不到对象”错误。

你的三个选项是

1) 将您的 lambda 提取到一个独立函数中，以确保首先创建其环境，从而在 !! 运算符强制评估之前正确初始化该环境中的所有变量：

f <- function(d) {
    new_name = sym("new_value")
    d %>% rename(!!new_name := old_name)
}

df %>% mutate(data = map(data, f))

2) 在试图用!! 强制其求值的表达式之外定义new_name

new_name = sym("new_value")
df %>%
    mutate(data = map(data, function(d) {d %>% rename(!!new_name := old_name)}))

3) 重写您的表达式，使其不使用!! 运算符来评估尚未初始化的变量（在本例中为new_name）：

df %>%
   mutate(data = map(data, function(d) {
     new_name = "new_value"
     do.call( partial(rename, d), set_names(syms("old_name"), new_name) )
   }))

旁注：您会注意到我用sym() 替换了您的quo() 调用。函数quo() 捕获一个表达式及其环境。由于字符串文字 "new_value" 将始终评估为相同的值，因此无需沿其环境进行标记。一般来说，将列名捕获为符号的正确动词是sym()。

Answer 2

如果我们使用 () 或 {} 使其独立，它应该可以工作

(function() {  
     new_name = quo("new_name_value"); 
     tibble(old_name=list(1,2,3)) %>% 
           rename( !! quo_name(new_name) := old_name) 
    })()

# A tibble: 3 x 1
#  new_name_value
#  <list>        
#1 <dbl [1]>     
#2 <dbl [1]>     
#3 <dbl [1]>  

如果匿名函数只包含一个expression，则不需要使用{}，但如果它有多个表达式，我们用{}包裹。根据?body

除了最简单的之外，所有的主体都是花括号表达式，即对 { 的调用：请参阅“示例”部分了解如何创建这样的调用。