data-raw/update_internal_exifr.R

In paleolimbot/exifr: EXIF Image Data in R

library(tidyverse)
library(curl)

# update the packaged version of exiftool, so that a reasonably new version is available
# in the installed package

current_version <- curl_fetch_memory("https://exiftool.org/ver.txt")$content %>%
  rawToChar()

curl_download(
  sprintf("https://exiftool.org/Image-ExifTool-%s.tar.gz", current_version),
  "data-raw/exiftool-current.tar.gz"
) %>%
  untar(exdir = "data-raw")

ex_root <- list.files("data-raw", "^Image-ExifTool", full.names = TRUE)

pkg_root <- "data-raw/exiftool"
dir.create(pkg_root)

file.copy(file.path(ex_root, "lib"), pkg_root, recursive = TRUE)
file.copy(file.path(ex_root, "exiftool"), file.path(pkg_root, "exiftool.pl"))

# make compressed version
withr::with_dir("data-raw", {
  unlink("exiftool.zip")
  zip("exiftool.zip", list.files("exiftool", full.names = TRUE, recursive = TRUE))
})

# copy to installed files
unlink("inst/exiftool", recursive = TRUE)
file.copy(pkg_root, "inst", recursive = TRUE)

# copy compressed version to gh-pages branch
system("data-raw/update_internal_exifr.sh")

# cleanup
unlink(ex_root, recursive = TRUE)
unlink(pkg_root, recursive = TRUE)
unlink("data-raw/exiftool-current.tar.gz")
unlink("data-raw/exiftool.zip")