将裁切的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（第一张图片）。