小编Abr*_*man的帖子

我有一个包含 9000 万张图像的文件夹。我有一个表，其中有一列file_path包含每个文件的完整路径。我需要读取文件夹中所有图像的高度和宽度。并将结果保存为可以读入R的表格。

我尝试过exifr在 R 中使用该包（用于exiftool完成工作），但速度很慢（扫描我的文件夹需要 3 小时以上）。有没有更快的方法来实现我的目标？我并不局限于使用本机R函数，但希望能够R使用不同语言中的 ifsystem或来调用该工具system2。

library(exifr)
dat<-data.frame(file_path = list.files("path/to/folder", 
                                       pattern =".jpg$",
                                       full.names = TRUE,
                                       recursive = TRUE))

im_dims<-read_exif(dat$file_path,tags = c("ExifImageWidth", "ExifImageHeight"))