r - 如何使用 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包到extract the metadata :

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

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