Конвертировать каждую страницу многостраничного PDF в отдельные файлы PNG в R

Question

Я видел несколько вопросов , связанных с попыткой конвертировать pdf в png, но ни один из ответов не показывает, как сохранить каждую страницу многостраничного pdf в отдельном png-файле.

Начиная с примера 13-страничного pdf:

# exmaple pdf 
example_pdf <- "https://arxiv.org/ftp/arxiv/papers/1312/1312.2789.pdf"

Как сохранить каждую страницу pdf в отдельном png-файле?

Answer 1

Мы можем создать png каждой страницы, используя функцию image_read_pdf из magick package:

#install magick package
install.packages("magick")
library("magick")

# creating magick-image class with a png for each page of the pdf
pages <- magick::image_read_pdf(example_pdf)
pages


# saving each page of the pdf as a png
j <- 1:13
for (i in j){
pages[i] %>% image_write(., path = paste0("image",i,".png"), format = "png")

}  

Это позволит сохранить каждую страницу как «изображение (номер страницы) .png» в вашей главнойфайл каталога.