将pptx另存为R中的pdf

# 安装所需库
install.packages("officer")
install.packages("rvg")
install.packages("magrittr")

# 导入所需库
library(officer)
library(rvg)
library(magrittr)

# 读取pptx文件
ppt <- read_pptx("your_pptx_file.pptx")

# 将pptx转换为pdf
output_file <- "output.pdf"
print(ppt, target = output_file)

# 打印转换完成的消息
print(paste("PPTX已成功转换为PDF，文件保存在：", output_file))