Question

代码可以将multiple-pages-pdf文件转换为隔离的相同页面

library(pdftools)
pdf_convert("Merit List.pdf", format = "png", pages = NULL, filenames = NULL, dpi = 300, opw = "", upw = "", verbose = TRUE)

我需要的是在他们的特定目录中转换多个pdf的所有页面，该列表只是一个示例我有一个包含所有带有图像的pdf的目录

list <- c("pdf/data/Merit List.pdf", 
          "pdf/data/New/Merit List.pdf")

尝试使用以下代码进行转换，但失败了，我想需要一个循环或函数，因为我在网上搜索但我不是R的专家

library(pdftools)
    pdf_convert(list, format = "png", pages = NULL, filenames = NULL, dpi = 300, opw = "", upw = "", verbose = TRUE)

Answer 1

我尝试使用： -

library(pdftools)
sapply(list, function(x)
  pdf_convert(x, format = "png", pages = NULL, filenames = NULL, dpi = 300, opw = "", upw = "", verbose = TRUE))

它对我有用。

Answer 2

试试这个对我有用

library(pdftools)
directory<-"pdf/data"
file.list <- paste(directory, "/",list.files(directory, pattern = "*.pdf"), sep = "")
lapply(file.list, FUN = function(files) {pdf_convert(files, format = "png",dpi = 300,pages =NULL,filenames =)})

将多页pdf转换为R中的PNG

2 个答案: