使用Magick

Question

我正在使用的代码用于读取列表中多个图像的文本，但是在图像调整大小后，我想将输出保存到具有精确名称的单独文件夹中。

library(magick)
library(magrittr)
    test <- image_read(list) %>%
      image_crop("100x16+161+68")%>%
      image_resize("2000") %>%
      image_convert() %>%      
      image_trim() %>%
      image_ocr()
    cat(test)

据我所知，我可以做些什么来保存图像，唯一名称“ image_write”。我将感谢任何建议和帮助，并希望这对新用户也会非常有帮助。如果可能的话，我需要为大数据集创建大约100张图像的批次。

image_write(list, path = "/data/backup", format = "png") %>%

Answer 1

library(magick)
library(purrr)

save_image <- function(img, img_name, output_dir) {
  image_write(img, file.path(output_dir, basename(img_name)))
  img
}

fils <- list.files("/tmp/so", pattern="png$", full.names = TRUE)

map(fils, ~{
  curr_fil <- .x
  image_read(curr_fil) %>%
    image_crop("100x16+161+68") %>%
    image_resize("2000") %>%
    save_image(curr_fil, "/tmp/backup") %>% 
    image_convert() %>%      
    image_trim() %>%
    image_ocr()
}) -> ocr_result

没有真正需要发挥功能的真正需要，但它使管道更加清洁。这样，您就可以拥有具有副作用的管道元素，但请继续处理。