使用pdftools轻松合并PDF

Question

我做了几个网页抓取，返回一些目录(路径)的每日pdf的，我需要找到一些方法，以获得所有的文件，作为简单的方式。现在，我将逐个列出所有文件。有什么简单的方法可以做到吗？

data_download
pdf_01 <- paste("path\\", data_download, " - MK - Debêntures novas.pdf", sep="")
pdf_02 <- paste("path\\", data_download, " - MK - Fundos novos.pdf", sep="")
pdf_03 <- paste("path\\", data_download, " - News - Instruções CVM.pdf", sep="")
pdf_04 <- paste("path\\", data_download, " - News - Notícias CVM.pdf", sep="")

pdf_merged <- paste("path\\", data_download, " - Novidades de hoje.pdf", sep="")

pdf_combine(c(pdf_01,pdf_02,pdf_03,pdf_04) ,output  = pdf_merged)

Answer 1

函数list.files()为您提供了大多数您想要的功能，如果您希望合并path文件夹中名称中包含"pdf“的所有文件，您可以执行以下操作：

pdf_combine(list.files(path, pattern="pdf", full.names=TRUE), output  = pdf_merged)