如何将 GPS 数据添加到 R 中的一组图像？

Question

我一直在尝试一些方法。其中之一是下面的代码：

library(exifr)
dir_path <- "path/to/directory/images"

gps_df <- data.frame(
  file_name = list.files(dir_path, pattern = "\\.jpg", full.names = TRUE),
  latitude = c(37.7749, 37.7748, 37.7747),
  longitude = c(-122.4194, -122.4193, -122.4192))

for (i in 1:nrow(gps_df)) {
  metadata <- exifr::read_exif(gps_df$file_name[i])
  gps <- list(exifr::gps_coordinate(gps_df$latitude[i], gps_df$longitude[i]))
  metadata$gps <- gps
  exifr::write_exif(gps_df$file_name[i], metadata)}

但是出现以下错误：Error: 'gps_coordinate' is not an Exported object from 'namespace:exifr'

Answer 1

看看这是否可以帮助您找到解决方案：http://paleolimbot.github.io/tutorial/rexiftool.html