使用 R 并行批量调整图像大小

Question

我正在尝试使用 R 批量调整数千张图像的大小（即减小文件大小）。我已经使用下面的代码设法实现了这一点，但它需要很长时间（尤其是在调整大小 >50,000 个时）图像。有什么方法可以在多个内核上运行此任务？我是并行计算的完全新手，因此将不胜感激任何帮助。提前致谢！

library(imager)    

pages <- list.files(path = '...insert directory path...',
                full.names = TRUE)


for(x in 1:length(pages)) {

file <- load.image(pages[x])

resized <- imresize(file,
                  scale = 0.390625)

save.image(resized,
         file = gsub("JPG", "jpg", paste(pages[x])))

}

Answer 1

秘密武器是GNU Parallel。使用 homebrew 安装它：

brew install parallel

现在，创建一个输出目录，这样您的输入图像就不会被破坏并并行运行一堆mogrify 命令：

mkdir results
parallel -X mogrify -resize 39% -path results ::: *.jpg

请做好备份，直到你掌握了这个窍门！！！

基准测试

我制作了 1,000 个 400x400 的 JPEG，其中充满了随机噪声，并依次转换了它们

time for i in *.jpg; do convert $i -resize 39% results/$i; done

real    0m19.086s
user    0m18.615s
sys     0m3.445s

然后并行：

time parallel -X mogrify -resize 39% -path results ::: *.jpg

real    0m3.351s
user    0m23.021s
sys     0m0.706s