sorting photos

sort.R

dir <- "F:/Tristan/OneDrive/Pictures/Camera Roll"
ps <- list.files(dir, "*.jpg", full.names = TRUE)
head(ps)

library(exiftoolr)
library(dplyr)
exif <- exif_read(head(ps, 2500), c("SourceFile", "CreateDate" ))

exif <- exif %>% 
  filter(!is.na(CreateDate)) %>% 
  mutate(
    CreateDate = lubridate::ymd_hms(CreateDate),
    Year = lubridate::year(CreateDate),
    Month = sprintf("%02.f", lubridate::month(CreateDate))) %>% 
  filter(!is.na(Month), !is.na(Year))
exif

dates <- distinct(exif, Year, Month)
for (x in seq_along(dates$Month)) {
  row <- dates[x, ]
  year_dir <- fs::path_join(c(dir, row$Year))
  month_dir <- fs::path_join(c(year_dir, row$Month))
  fs::dir_create(year_dir)
  fs::dir_create(month_dir)
}


for (x in seq_along(exif$SourceFile)) {
  row <- exif[x, ]
  year_dir <- fs::path_join(c(dir, row$Year))
  month_dir <- fs::path_join(c(year_dir, row$Month))
  new_path <- fs::path_join(c(month_dir, basename(row$SourceFile)))
  fs::file_move(row$SourceFile, new_path)
}