将裁剪后的 pdf 图像从 R imagemagick 保存到新的 pdf

Question

我正在使用 R 和 imagemagick 从 pdf 文件裁剪一些边框。我正在执行以下命令：

library(magick)

pdf_total <- image_read_pdf(path =  "file1.pdf")
pdf_cropped <- image_crop(pdf_total,"3000x1500")

在这个过程之后我得到了一个完美的裁剪文件，但是当我尝试将文件保存到一个新的 pdf 文件时出现了问题。保存此转换后的 pdf 的正确步骤是什么？

Answer 1

我最终的解决方案是：

library(magick)

pdf_total <- image_read_pdf(path =  "file1.pdf")
pdf_cropped <- image_crop(pdf_total,"3000x1500")


for(i in seq(1,length(pdf_cropped))){

     plot(pdf_cropped[i])

}

dev.off()

在这种情况下，我做了一个 for 循环来保存所有页面，如果你通过 plot(pdf_cropped) 结果是一个只有一页的 pdf（第一张图片）。