exif_read(path = "C:/Users/mfzaidan/Desktop/R Test File/EXIF", recursive = TRUE)
inDir <-
wd.images.in <- "C:/Users/mfzaidan/Desktop/R Test File/RAW FRESH/S01"
outDir <- wd.images.out <- "C:/Users/mfzaidan/Desktop/R Test File/RENAMED"
rename.table <- imageRename(inDir =
wd.images.in,
outDir = wd.images.out,
hasCameraFolders = TRUE,
keepCameraSubfolders = FALSE,
copyImages = TRUE,
writecsv = TRUE)