R中的for循环用于从png文件中提取文本

Question

我的文件夹中有一些 .png 文件，我需要一个一个地读取它们，并将所有文件生成的文本连接到一个变量中。我正在使用以下代码：

filenames <- list.files(path = "C:/Users/tmpxk9/Documents", pattern="*.png")

for (i in seq_along(filenames)) {
  xx <- magick::image_read("filenames[i]")
  xx %>%
    magick::image_resize("2000x") %>%
    magick::image_convert(type = 'Grayscale') %>%
    tesseract::ocr() %>%
    cat()
}

出现以下错误：

Error in magick_image_readpath(enc2native(path), density, depth, strip) : 
  rsession.exe: UnableToOpenBlob `C:\Users\tmpxk9\Documents\filenames[i]': No such file or directory @ error/blob.c/OpenBlob/2701

我确定 for 循环存在一些问题，我正在处理它，但无法弄清楚

Answer 1

您检索文件名的方式不包括它们存储的文件夹。为了使用 list.files() 获得完整路径，您必须包含参数 full.names = TRUE .

R中的for循环用于从png文件中提取文本

For loop in R for extracting text from png files

r

regex

ocr

tesseract