我见过few questions asked,其中涉及尝试将pdf转换为png,但是没有答案显示如何将多页pdf的每一页保存为不同的png文件。
从一个13页的pdf示例开始:
# exmaple pdf
example_pdf <- "https://arxiv.org/ftp/arxiv/papers/1312/1312.2789.pdf"
如何将pdf的每个页面另存为不同的png文件?
答案 0 :(得分:1)
我们可以使用image_read_pdf
中的magick package
函数为每个页面创建一个png:
#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")
}
这会将每个页面另存为主目录文件中的“ image(page number).png”。