封装读取Excel多工作表并命名数据框的R函数遇问题求助

原封装函数失效的核心原因是：assign()在函数内部调用时，默认只会在函数的局部作用域创建对象，函数执行完毕后局部作用域被销毁，这些对象不会保留到全局环境中，所以你在函数外看不到生成的数据框。

下面提供两种可行的解决思路：

方法一：直接在全局环境创建对象 #

修改assign()的参数，指定将对象创建到全局环境中，同时优化代码效率（先一次性读取所有工作表为命名列表，再循环赋值）：

get_sheets <- function(x) {
  sheet_names <- openxlsx::getSheetNames(x)
  # 一次性读取所有工作表为命名列表
  sheet_data <- lapply(sheet_names, function(sheet) {
    openxlsx::read.xlsx(x, sheet = sheet)
  })
  names(sheet_data) <- sheet_names
  
  # 将列表中的每个元素赋值到全局环境
  for (name in sheet_names) {
    assign(name, sheet_data[[name]], envir = globalenv())
  }
}

# 使用示例
x <- system.file("extdata", "readTest.xlsx", package = "openxlsx")
get_sheets(x)

方法二：返回命名列表（更符合R函数设计规范） #

让函数仅负责读取数据并返回一个以工作表名为键的列表，由用户自主决定是否将对象放到全局环境。这种方式避免了函数的“副作用”，更灵活安全：

get_sheets <- function(x) {
  sheet_names <- openxlsx::getSheetNames(x)
  sheet_data <- lapply(sheet_names, function(sheet) {
    openxlsx::read.xlsx(x, sheet = sheet)
  })
  names(sheet_data) <- sheet_names
  sheet_data
}

# 使用示例
x <- system.file("extdata", "readTest.xlsx", package = "openxlsx")
sheet_list <- get_sheets(x)

# 如果需要将每个工作表数据框放到全局环境，用list2env快速实现
list2env(sheet_list, envir = globalenv())

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