如何使用R提取照片的创建日期？

Question

我有 800 多张图片需要提取创建日期。但是如果我使用该file.mtime功能，它就不起作用。这只是我修改它的日期。有趣的是，iPhoto（Mac 上用于管理照片的程序）能够正确检测创建日期。

这是我使用的代码。

my.path = "~/Desktop/cool_path_here"
vec.jpg = list.files(path = my.path)
lapply(paste(my.path,vec.jpg,sep = "/"),FUN =  file.mtime)

是否有一种功能可以提取照片的创建日期，而不是 mac 上“获取信息”菜单中显示的日期。

例如：（昨天是 5 月 18 日）

在 iPhoto 中（3 月 16 日发现）：

R 发现：

2017-05-19 15:08:29

Answer 1

使用exif包提取元数据：

library(exif)
read_exif(paste(my.path,vec.jpg[1], sep="/"))$origin_timestamp

正在返回"2017:03:16 08:47:48"，这正是我要找的！