R语言如何编写可返回自动命名列表的自定义函数

• 第一种写法的核心问题是 substitute(...) 仅能捕获...中传入的第一个参数的表达式，无法批量获取所有入参的字符名称，因此只能给第一个列表元素赋值名称，后续元素名称均为缺失值。
• 第二种写法逻辑存在多处错误：循环中重复调用substitute(...)依然只能获取第一个入参，且循环内对变量a的赋值逻辑混乱，最终输出的名称向量仅保留最后一次循环的计算结果，完全不符合预期。

核心思路是先通过substitute(list(...))一次性捕获所有入参的表达式，再提取表达式的字符形式作为列表元素名：

list_with_names <- function(...) {
  # 捕获所有入参的表达式集合
  input_expr <- substitute(list(...))
  # 转字符后去掉第一个元素（对应表达式中的list关键字）
  elem_names <- as.character(input_expr)[-1]
  # 构造列表并赋值名称
  res_list <- list(...)
  names(res_list) <- elem_names
  return(res_list)
}

测试代码：

var1 <- 100
var2 <- "demo"
test_output <- list_with_names(var1, var2, custom = 3.14, 5+2)
print(test_output)

预期输出：

$var1
[1] 100

$var2
[1] "demo"

$custom
[1] 3.14

$`5 + 2`
[1] 7

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