为何在R函数中需将形式参数变量赋值给自己才能使函数正常工作？

这是一个很有意思的问题，那行看似冗余的object <- object其实是在解决R中惰性求值和嵌套函数调用时的符号捕获问题，咱们一步步拆解：

为什么object <- object是必需的？ #

首先看你的调用流程：

1. 当你调用save_sysdata(x)，eval(substitute(alist(...)))会生成一个包含符号x的列表alist(x)。
2. purrr::map_chr遍历这个列表，把每个符号（比如x）作为参数传给add_dot。

问题出在add_dot内部的substitute(object)：

• R的函数参数是惰性求值的，object最初是一个「承诺（promise）」，指向调用add_dot时传入的表达式（在map的迭代中，这个表达式其实是map内部的迭代变量，比如.x，而不是原始的x）。
• 如果你直接调用deparse(substitute(object))，得到的会是map内部的变量名（比如.x），而不是你传入的原始对象名x。这会导致生成的隐藏对象名变成.x，甚至更奇怪的字符串，最终保存的对象要么名字错误，要么因为找不到对应变量而生成空的sysdata.rda。

而object <- object这行代码的作用是：

强制求值参数object的「承诺」，把它从一个指向迭代表达式的引用，转换成实际传入的符号（比如x），并赋值给本地的object变量。

此时再调用substitute(object)，就会捕获到这个本地变量对应的符号x，而不是map的迭代变量，这样就能生成正确的隐藏对象名.x，后续的assign和save也能正常工作。

更高效的实现方案 #

你的方案虽然能工作，但嵌套函数调用带来了复杂的作用域问题（比如需要手动指定parent.frame(3)这种容易出错的层级）。我们可以直接在save_sysdata内部处理参数，避免嵌套调用的麻烦：

save_sysdata <- function(...) {
  # 获取所有传入参数的表达式（保留原始符号名）
  input_args <- substitute(list(...))[-1]
  
  # 生成隐藏对象名：如果参数有命名则用命名，否则用符号名
  hidden_names <- paste0(".", if (is.null(names(input_args))) {
    sapply(input_args, deparse)
  } else {
    names(input_args)
  })
  
  # 将原始对象的值赋值到当前函数环境的隐藏变量中
  for (i in seq_along(input_args)) {
    assign(
      hidden_names[i],
      eval(input_args[[i]], envir = parent.frame()),  # 在调用者环境中求值原始对象
      envir = environment()  # 赋值到当前函数环境
    )
  }
  
  # 保存隐藏对象到sysdata.rda
  save(
    list = hidden_names,
    file = "sysdata.rda",
    compress = "bzip2",
    version = 2
  )
}

这个方案的优势：

1. 不需要额外的add_dot函数，逻辑更集中清晰；
2. 直接处理传入的参数表达式，避免了map带来的迭代变量干扰；
3. 支持命名参数，比如save_sysdata(my_data = x)会生成.my_data，更灵活；
4. 不需要手动指定parent.frame的层级，代码更健壮。

测试一下：

x <- "test"
save_sysdata(x)
load("sysdata.rda")
.x  # 返回 [1] "test"

# 支持命名参数
y <- 123
save_sysdata(my_num = y)
load("sysdata.rda")
.my_num  # 返回 [1] 123

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