dplyr>=1.0中使用mutate动态列名时为何需用ensym？

问题背景 #

在函数中使用glue语法定义mutate的动态列名时，必须用ensym处理参数才能正常运行，想搞懂背后的原理：为什么一定要用ensym？仅用{{}}或{}为啥满足不了需求？

可正常运行的代码示例 #

a <- 1:5
data_set <- tibble(a,x=a*2)

test_function <- function(data,var_x){
  var_x <- ensym(var_x)
  data %>% mutate("is_four_in_{var_x}":=if_else({{var_x}}==4,{{var_x}},NA_integer_)) %>% 
    return()
}

data_set %>% test_function(x)

移除ensym后的错误情况 #

如果删掉var_x <- ensym(var_x)这一行，会抛出如下错误：

Error in eval(parse(text = text, keep.source = FALSE), envir) :
  object 'x' not found

背后的原理解析 #

• 求值环境的差异：glue处理列名里的{var_x}时，是在函数的普通运行环境中求值，而不是dplyr专门的tidy eval上下文。这是核心区别。
• ensym的作用：ensym(var_x)会把你传入的参数符号（比如调用时传入的x）捕获下来，转换成可被glue直接识别的字符串形式。调用test_function(x)时，ensym会将符号x转为字符串"x"，这样glue就能正确拼接出is_four_in_x这个列名。
• 为啥{{}}不行：{{}}是dplyr专属的tidy eval操作符，仅在dplyr的函数参数（比如mutate右侧的表达式）中生效——它的作用是告诉dplyr去数据框里查找对应的列。但在glue的列名字符串里，{{}}就是普通字符，glue完全不识别，自然没法解析出正确的列名。
• 为啥单纯用{}不行：如果不用ensym，var_x在函数环境里是一个「未求值的promise」。glue解析{var_x}时，会尝试在函数环境中找var_x对应的对象，但此时var_x绑定的是符号x，而函数环境里根本没有名为x的对象（只有var_x这个参数），所以就会报找不到x的错误。

内容的提问来源于stack exchange，提问作者Pontus Challis