在函数中使用unpivotr::behead时动态指定name参数失效问题

问题出在behead的name参数采用非标准求值（NSE），直接传入函数参数名时，它会将参数名本身作为列名，而非参数对应的字符串值。

修改方案如下，使用符号转换与强制求值运算符!!实现动态传参：

library(unpivotr)
library(tidyxl)
library(dplyr)
library(rlang) # 确保加载rlang包

data_prep <- function(variable_col){
  # 读取Excel单元格
  cells <- xlsx_cells(paste0(data_folder, "Data_name.xlsx"),
                      include_blank_cells = TRUE) 
  # 单元格处理
  cells1 <- cells %>%
    behead("up-left", "year") %>%
    # 将字符串参数转为符号，并用!!强制求值
    behead("left", !!sym(variable_col)) 
}

调用示例：

data_prep(variable_col = 'dog_names')

原理说明 #

• sym(variable_col)：把传入的字符串（如"dog_names"）转换为R的符号对象。
• !!：强制求值运算符，告诉behead解析符号对应的实际值，而非把参数名variable_col本身作为列名。

如果不想额外加载rlang包，也可以用base R的as.name()替代sym()：

behead("left", !!as.name(variable_col))

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