RStudio中对近期爬取的PDF执行file.remove()提示权限被拒绝问题

你遇到的权限报错核心是PDF读取环节的底层文件句柄没有被正确释放：closeAllConnections()只能关闭R原生接口创建的连接，你调用的PDF解析工具（比如pdftools、poppler相关包）大多是调用底层C/C++库读取文件，这类库打开的文件句柄不归R的连接管理器管控，所以常规的关连接操作无效。

方案1：强制释放关联对象后垃圾回收（优先推荐） #

在执行删除操作前，先清理所有和PDF读取相关的对象，再触发R的全量垃圾回收，强制底层库释放文件句柄，参考代码：

# 第一步：清理所有存储过PDF内容、PDF连接的对象
# 如果你之前存PDF内容的变量名是pdf_text、pdf_doc之类的，可精准删除；不确定的话可以模糊匹配删除
rm(list = ls(pattern = "pdf|PDF"))

# 第二步：强制触发多次垃圾回收，确保底层资源完全释放
gc()
gc() # 多次调用确保C层面的析构函数被触发

# 第三步：执行删除逻辑，新增full.names参数避免相对路径匹配错误
AllFiles <- list.files("starting_folder_path", full.names = TRUE) %>%
  stringr::str_subset(., "combined_data", negate = TRUE)

file.copy(from = AllFiles, to = "target_folder_path", overwrite = TRUE)
# 可选：校验文件全部复制成功再执行删除，避免文件丢失
stopifnot(all(file.exists(file.path("target_folder_path", basename(AllFiles)))))
file.remove(AllFiles)

方案2：调用系统原生命令绕过R会话占用限制 #

如果方案1无效，直接调用当前系统的删除命令，不需要通过R的file.remove接口，不会受R会话内部句柄占用的限制：

Windows系统适配代码 #

AllFiles <- list.files("starting_folder_path", full.names = TRUE) %>%
  stringr::str_subset(., "combined_data", negate = TRUE)
file.copy(from = AllFiles, to = "target_folder_path", overwrite = TRUE)
# 转换路径为Windows格式，调用del命令强制删除
system(paste0("del /F /Q ", shQuote(AllFiles)))

Mac/Linux系统适配代码 #

AllFiles <- list.files("starting_folder_path", full.names = TRUE) %>%
  stringr::str_subset(., "combined_data", negate = TRUE)
file.copy(from = AllFiles, to = "target_folder_path", overwrite = TRUE)
# 调用rm命令强制删除
system(paste0("rm -f ", shQuote(AllFiles)))

方案3：提前修复PDF读取逻辑的资源泄露 #

如果你使用pdftools包读取PDF，旧版本的隐式释放逻辑存在bug，可改为显式关闭文档的写法：

# 常规写法可能存在资源泄露
pdf_content <- pdftools::pdf_text("test.pdf")

# 改为显式释放版本
temp_doc <- pdftools::pdf_load("test.pdf")
pdf_content <- pdftools::pdf_text(temp_doc)
pdftools::pdf_close(temp_doc) # 读取完立刻关闭文档释放句柄

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