Merge pull request #36 from insilentio/devel

Increment version number to 1.6.3

Author: insilentio

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: exifer
 Type: Package
 Title: Photo Metadata Improver
-Version: 1.6.2
+Version: 1.6.3
 Authors@R: c(
     person(
       "Daniel", "Baumgartner",

NEWS.md

@@ -1,3 +1,6 @@
+# exifer 1.6.3
+-  bugfix issue with `EXIF:CreateDate`
+
 # exifer 1.6.2
 -   bugfix issue with `EXIF:OffsetTimeDigitized`
 

R/exiftool_time.R

@@ -34,6 +34,8 @@ harmonize_time <- function(paths,
     times <- times |> tibble::add_column("IPTC:TimeCreated" = NA)
   if (!any(grepl("IPTC:DateCreated", colnames(times))))
     times <- times |> tibble::add_column("IPTC:DateCreated" = NA)
+  if (!any(grepl("EXIF:CreateDate", colnames(times))))
+    times <- times |> dplyr::mutate(`EXIF:CreateDate` = `EXIF:DateTimeOriginal`)
 
   times <- times |> 
     dplyr::mutate(`EXIF:DateTimeOriginal` = `EXIF:CreateDate`) |>