r pdftools：将多个页面合并为单个页面

Question

可以使用pdftool r软件包中的pdf_combine函数来合并不同的PDF文档。

pdftools::pdf_combine(
          input    = list(
                            "Page1.pdf"
                          , "Page2.pdf"
                          , "Page3.pdf"
                          , "Page4.pdf"
                          )
        , output   = "Pages1234.pdf"
        , password = ""
        )

想知道是否有一种方法将这四个页面合并成一个页面，类似于每张纸上打印多个页面。

- MYaseen208

---

在Linux终端中使用pdfjam，https://dev59.com/2WQo5IYBdhLWcg3wXeT5#65021319 - jay.sf

Answer 1

你可以使用 magick 包来完成这个任务...

library(magick)
files <- list.files(pattern = "\\.pdf")          #get pdf filenames
pdfs <- Reduce(c, lapply(files, image_read_pdf)) #read in and combine
montage <- image_montage(pdfs, tile = '2x2', geometry = "x1200") #create pages of 4
image_write(montage, format = "pdf", "pages1234.pdf") #save as single pdf

这适用于任何数量的PDF文件，将它们输出为每页四个。您可能需要调整设置以获得所需的边距、尺寸或质量。

- Andrew Gustar