如何使用R批量将多个PPTX文件转换为PDF

没问题，我来帮你把单个文件的转换代码扩展成批量处理的版本，核心思路就是先抓取目标文件夹里所有的PPTX文件，再逐个应用转换函数。下面给你两种常用的实现方式：

方法1：基础for循环（适合新手，直观易理解） #

首先我们先获取目标文件夹中所有PPTX文件的完整路径，然后用循环逐个处理：

# 替换成你的PPT文件所在文件夹路径
target_folder <- "你的文件夹路径"

# 获取所有PPTX文件的完整路径（匹配后缀为.pptx的文件）
pptx_files <- list.files(
  path = target_folder,
  pattern = "\\.pptx$",  # 正则匹配以.pptx结尾的文件
  full.names = TRUE      # 返回完整路径，避免找不到文件
)

# 遍历每个文件进行转换
for (file in pptx_files) {
  # 生成对应的PDF路径：和原文件同目录，文件名不变，替换后缀为.pdf
  pdf_output_path <- paste0(tools::file_path_sans_ext(file), ".pdf")
  
  # 调用你已有的转换函数
  convert_to_pdf(file, pdf_file = pdf_output_path)
  
  # 可选：打印转换进度提示
  cat(sprintf("✅ 已完成转换：%s → %s\n", basename(file), basename(pdf_output_path)))
}

方法2：函数式编程风格（用purrr包，更简洁高效） #

如果你熟悉tidyverse生态，用purrr包的映射函数可以让代码更简洁，还能方便地处理错误：

# 先安装并加载purrr包（如果没装过的话）
if (!require(purrr)) install.packages("purrr")
library(purrr)
if (!require(dplyr)) install.packages("dplyr")
library(dplyr)

# 替换成你的文件夹路径
target_folder <- "你的文件夹路径"
pptx_files <- list.files(target_folder, pattern = "\\.pptx$", full.names = TRUE)

# 定义一个带错误处理的转换函数
safe_convert <- function(file) {
  tryCatch({
    pdf_path <- paste0(tools::file_path_sans_ext(file), ".pdf")
    convert_to_pdf(file, pdf_file = pdf_path)
    # 返回转换成功的信息
    tibble(原文件 = basename(file), 状态 = "转换成功", 输出文件 = basename(pdf_path))
  }, error = function(e) {
    # 捕获并返回错误信息
    tibble(原文件 = basename(file), 状态 = "转换失败", 输出文件 = as.character(e))
  })
}

# 批量执行转换，并整理结果为数据框
conversion_result <- map_dfr(pptx_files, safe_convert)

# 查看转换结果
print(conversion_result)

注意事项： #

• 记得把代码里的"你的文件夹路径"替换成实际路径，Windows系统路径可以用正斜杠"C:/Users/xxx/Documents/PPTs"或者双反斜杠"C:\\Users\\xxx\\Documents\\PPTs"；Mac/Linux直接用常规路径即可。
• 如果你的convert_to_pdf函数来自特定包（比如officer或rmarkdown），确保已经提前加载对应包。
• 带错误处理的版本能帮你快速定位转换失败的文件（比如损坏的PPTX），非常实用。

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