如何计算来自 R 的 PDF 中的页数？

Question

有没有办法从 R 计算 PDF 文件的页数？如果没有，是否有另一种独立于操作系统的方法来做到这一点？到目前为止，我找到的唯一答案是this，它是特定于 Windows 7 的。

我正在尝试在 R 和 knitr 中编译一些报告，聚合来自先前脚本的 PDF 绘图输出，该脚本自动处理数百个数据集。一些数据集很糟糕，最终破坏了绘图功能。由于 plot 函数包含在 pdf 函数中，因此会生成一个空的 PDF 文件，该文件会被报告找到并中断 pdflatex。尝试修改分析脚本以避免一开始就生成这些 PDF 已被证明是困难的，并且是非常特定于案例的。我真的很想有一些可以嵌入到报告中的功能，在包含之前检查 PDF 是否有 >=1 页。我更喜欢基于 R 的解决方案，尽管 bash、LaTeX、knitr 或 pdflatex 解决方案也可能就足够了。

编辑：另外，正如我链接到的上一个答案中提到的，我尝试使用 Rpoppler (here) 但无法编译。我在没有管理员访问权限的 CentOS 6 环境中使用 R 版本 3.3.0。

Answer 1

其他建议和代码似乎不必要地不透明或复杂。一旦安装了pdftools，pdf_info 命令将返回一个 pages 字段：

    library(pdftools)
    # returns number of pages
    # assumes your_file_name.pdf is in working directory
    pdf_info("your_file_name.pdf")$pages  
    
    # to see other available metadata in pdf_info object, use names()
    names(pdf_info("your_file_name.pdf")) 

Answer 2

下面的脚本对我有用。

#########################################
#GET PDF PAGE NUMBER :: R - JULY 16
##########################################

##SOURCE
#----pdftools package
#https://cran.rstudio.com/web/packages/pdftools

#Requirement
#brew install poppler
## TO AVOID ERROR ::: configure: error: cannot determine poppler-glib compile/link flags

#INSTALL PACKAGES
#install.packages("pdftools", dependencies=TRUE)  #only once

#IN/OUT FILES
in_put_pdf="pathTo/test.pdf"
out_put_pdf="pathTo/testCopy.pdf"

#LOAD LIBS
library(pdftools)

#Copy of the original file
file.copy(file.path(Sys.getenv("PATH_TO_PDF_FILE"), in_put_pdf), out_put_pdf)

#Many informations about the file are displayed here
info <- pdf_info(out_put_pdf)
text <- pdf_text(out_put_pdf)
fonts <- pdf_fonts(out_put_pdf)
files <- pdf_attachments(out_put_pdf)


#To get the number of pages
numberOfPageInPdf = info[2]
numberOfPageInPdf

希望能有所帮助。祝你好运。