如何从.R文件中提取对象名称？而非从当前环境获取

我来给你两个实用的办法解决这个问题，一个简单直接，一个安全稳妥，看你的需求选就行：

方法1：临时环境执行文件（适合信任的文件） #

直接执行文件会把对象加载到当前工作空间，污染环境还可能触发副作用。我们可以创建一个临时空环境，在这个独立环境里执行目标.R文件，再提取里面的对象名称，完全不会影响你的现有工作环境。

代码示例：

# 指定目标文件的路径
target_file <- "test.R"

# 创建一个全新的临时空环境
temp_env <- new.env()

# 在临时环境中执行目标文件
sys.source(target_file, envir = temp_env)

# 提取临时环境里的所有对象名称
obj_names <- ls(temp_env)

# 按你想要的格式输出结果
cat(paste0('"', obj_names, '"', collapse = ","))

执行后就能得到你期望的结果："func_1","func_2","func_3","c_1"

方法2：静态解析文件（无需执行，更安全） #

如果你的目标文件里有会产生副作用的代码（比如修改系统设置、自动写入文件），直接执行就不太安全了。这时候可以用静态语法解析的方式，不用运行代码，直接从文件的代码结构里提取定义的对象名称。

代码示例：

target_file <- "test.R"

# 把文件解析成表达式列表（不执行代码）
exprs <- parse(file = target_file)

# 初始化存储对象名称的向量
obj_names <- c()

# 遍历每个表达式，提取赋值定义的对象名
for (expr in exprs) {
  # 处理赋值语句（比如 func_1 <- function(...) 或者 c_1 <- R6Class(...)）
  if (is.call(expr) && expr[[1]] == "<-") {
    lhs <- expr[[2]]
    # 提取左边的对象名称（适配常规的函数、R6类赋值场景）
    if (is.name(lhs)) {
      obj_name <- as.character(lhs)
      obj_names <- c(obj_names, obj_name)
    }
  }
}

# 去重后按格式输出
obj_names <- unique(obj_names)
cat(paste0('"', obj_names, '"', collapse = ","))

这个方法的优势是完全不执行代码，避免了潜在风险，但要注意：它只能处理常规的赋值场景，如果你文件里有动态生成对象名的复杂代码，可能需要更细致的语法分析逻辑。

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