使用 R，有人如何计算 PDF 文件的页数？

Question

我在一个目录中有大约一百个长 PDF 文件，想知道 R 是否可以计算每个文件中有多少页。我的操作系统是 Windows 8。

这是一个 10 页的 PDF 文件的链接，以帮助您测试您的解决方案。 MWE pdf file

似乎可以用 python 计算 PDF 页面，但我不知道那种语言 python solution。其他解决方案已经在 SO 上使用，例如 Imagemagick 进行了讨论。和 C##。

Answer 1

在 R 版本 3.3.2 pdftools 上工作：

library(pdftools)
pdfInfo <- pdf_info(<path to PDF file>)
pdfInfo$pages

Answer 2

我正在使用 Windows 7 机器，但我在 Windows 8 上的经验让我认为它应该同样适合您。

我无法编译 Rpoppler 包，正如 hrbrmstr 指出的那样，它可能不值得战斗。如果您有 7-Zip，则可以提取适用于 Windows 的 poppler 工具。我已将它们提取到位置C:\poppler。在那里，我可以执行以下操作

file_name <- "C:/[file_path]/whitepaper-pdfprimer.pdf"

pdf_pages <- function(file_name){
  require(magrittr)
  pages <- system2("C:/poppler/bin/pdfinfo.exe",
                   args = file_name,
                   stdout = TRUE)
  pages[grepl("Pages:", pages)] %>%
    gsub("Pages:", "", .) %>%
    as.numeric()
}

pdf_pages(file_name)

如果您有要传递的文件名向量

vapply(file_names, pdf_pages, numeric(1))

感谢@hrbrmstr 指出了 poppler 工具（直到今天我才听说过它们）。