Сохранить обрезанное изображение 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-файл с одной страницей (первое изображение).