如何用R语言pdftools包的pdf_convert批量导入多份PDF文件？

嘿，我来帮你搞定这个问题！你遇到的错误主要来自两个地方：循环写法不对，还有pdf_convert不支持通配符路径。咱们一步步来修正：

错误原因拆解 #

• 你的循环for(i in length(dir(folder)))完全没起到遍历文件的作用：length(dir(folder))返回的是目录里文件的总数（比如如果有5个PDF，它就是5），所以这个循环只会执行一次，根本没碰每个PDF文件。
• pdf_convert不认识C:/folder/*.pdf这种通配符，它需要你明确指定单个PDF的完整路径，这也是你收到路径规范化错误的核心原因。

正确的批量转换代码 #

先确保你加载了pdftools包，然后按下面的步骤来：

1. 获取所有PDF文件的完整路径

library(pdftools)

# 替换成你的实际文件夹路径
folder_path <- "C:/folder"

# 精准筛选出文件夹里的所有PDF，返回完整路径
pdf_files <- list.files(
  path = folder_path,
  pattern = "\\.pdf$",  # 正则表达式，只匹配以.pdf结尾的文件
  full.names = TRUE     # 关键！返回完整路径，不是仅文件名
)

2. 循环遍历每个PDF进行转换

# 遍历每个PDF文件
for (single_pdf in pdf_files) {
  # 转换为JPEG，这里可以调整dpi（分辨率）参数，默认是72，建议设300更清晰
  pdf_convert(single_pdf, format = "jpeg", dpi = 300)
}

3. 可选：自定义输出目录
   如果你不想把JPEG和PDF混在一起，可以指定输出文件夹：

# 在原文件夹下创建一个jpeg_output目录（不存在则自动创建）
output_dir <- file.path(folder_path, "jpeg_output")
dir.create(output_dir, showWarnings = FALSE)

# 循环转换并指定输出位置
for (single_pdf in pdf_files) {
  pdf_convert(
    single_pdf,
    format = "jpeg",
    dpi = 300,
    output_dir = output_dir
  )
}

额外的容错小技巧 #

如果有些PDF加密或者损坏，转换会报错，你可以用tryCatch来捕获错误，避免整个循环中断：

for (single_pdf in pdf_files) {
  tryCatch({
    pdf_convert(single_pdf, format = "jpeg", dpi = 300, output_dir = output_dir)
    cat("✅ 成功转换：", basename(single_pdf), "\n")
  }, error = function(e) {
    cat("❌ 转换失败：", basename(single_pdf), "，错误：", e$message, "\n")
  })
}

最后记得检查你的pdftools是不是最新版本，旧版本可能有bug：

update.packages("pdftools")

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