Использование R, как можно подсчитать количество страниц в файле PDF?

Question

У меня есть около ста длинных PDF-файлов в каталоге и хотелось бы знать, может ли R подсчитать, сколько страниц в каждом файле. Моя операционная система - Windows 8.

Вот ссылка на 10-страничный PDF-файл, если это поможет вам протестировать ваше решение. MWE pdf file

Возможно, можно считать страницы PDF с помощью python, но я не знаю этого языка 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, вы можете извлечь утилиту poppler для Windows. Я извлек их на место 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 инструментов (я бы никогда слышали о них до сегодняшнего дня).