R中导入Excel时缺失指定工作表的错误处理方案

可以利用tidyverse中purrr包的possibly函数，给读取Excel的逻辑添加错误捕获，自动跳过缺失目标工作表的文件，无需显式编写循环判断：

library(tidyverse)
library(readxl)

path <- "here is my file path"
files <- list.files(path, pattern="partial_filename*.xlsx", recursive=TRUE)

# 创建带错误处理的安全读取函数：出错时返回NULL
safe_read_xlsx <- possibly(function(x) {
  # 用file.path替代手动拼接路径，适配不同系统的路径分隔符
  read_xlsx(path = file.path(path, x), sheet="XXX")
}, otherwise = NULL)

# 批量读取并合并数据，bind_rows会自动忽略NULL元素
df <- map(files, safe_read_xlsx) %>% 
  bind_rows()

关键说明 #

• possibly的作用是包装原函数，当原函数执行出现错误（比如找不到指定工作表）时，返回预先设定的otherwise值（这里是NULL）
• map是tidyverse中替代lapply的函数，实现隐式批量处理，符合tidy编程风格
• bind_rows在合并列表时会自动跳过NULL元素，最终只保留成功读取的文件数据

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