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

Question

pdf_combine r package 中的pdf_combine function可用于合并不同的 pdf 文档。

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

想知道是否有一种方法可以将这四个页面组合成一个页面，例如每张打印多页。

Answer 1

你可以用magick package 来做到这一点......

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，将它们输出到第四页到一页。 您可能想要使用这些设置来获得您喜欢的边距、尺寸或质量。