测试使用enquo()处理NULL参数的函数时遇命名错误求助

你的问题出在对enquo()的使用场景理解偏差上，咱们一步步拆解：

错误原因分析 #

当你调用my_fun(dataframe, a, NEW_NAME)时，enquo(new_var_name)会把NEW_NAME当作一个需要在环境中查找的符号（变量），而不是你想要的列名字面量。因为你并没有定义NEW_NAME这个变量，所以R会抛出"object 'NEW_NAME' not found"的错误。

而默认场景下你写的quo(default_name)之所以能工作，是因为quo_name(quo(default_name))最终会解析成字符串"default_name"——但这其实是绕了个弯路，直接用字符串更稳妥。

修正方案 #

我们需要用ensym()来替代enquo()处理列名参数，ensym()专门用来捕获用户传入的符号或字符串形式的名称，并转换成可直接使用的列名字符串。修改后的函数如下：

library(dplyr)

dataframe <- tibble(a = 1:5, b = 6:10 )
my_fun <- function(df, col_name, new_var_name = NULL) {
  target <- enquo(col_name)
  c <- df %>% pull(!!target) * 3
  
  # 处理列名逻辑：NULL时用默认值，否则捕获传入的名称
  new_name <- if (is.null(new_var_name)) {
    "default_name"
  } else {
    as_name(ensym(new_var_name))  # 把符号/字符串转成列名字符串
  }
  
  tibble(abc = df %>% pull(!!target), !!new_name := c )
}

测试验证 #

1. 默认列名调用（和之前效果一致）：

my_fun(dataframe, a)

输出：

# A tibble: 5 × 2
    abc default_name
  <int>        <dbl>
1     1            3
2     2            6
3     3            9
4     4           12
5     5           15

2. 自定义列名调用（无需引号，直接传符号）：

my_fun(dataframe, a, NEW_NAME)

输出：

# A tibble: 5 × 2
    abc NEW_NAME
  <int>    <dbl>
1     1        3
2     2        6
3     3        9
4     4       12
5     5       15

3. 也支持字符串形式的列名输入：

my_fun(dataframe, a, "custom_col")

输出同样符合预期。

额外说明 #

• enquo()适合捕获用户传入的表达式（比如a + b这种计算式），而ensym()/ensyms()适合捕获名称类参数（列名、变量名）。
• 如果你用的是较新版本的dplyr（1.0.0+），也可以用{{ }}（整洁评估的简化语法）来替代enquo()和!!，让代码更简洁：

  my_fun <- function(df, col_name, new_var_name = NULL) {
    c <- df %>% pull({{ col_name }}) * 3
    
    new_name <- if (is.null(new_var_name)) {
      "default_name"
    } else {
      as_name(ensym(new_var_name))
    }
    
    tibble(abc = df %>% pull({{ col_name }}), !!new_name := c )
  }
  

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