Michael Rutter marutter

## 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)) %>%
	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)) %>%