raw_images <- file.path(getwd(), "raw_images")
images_renamed <- file.path(getwd(), "images_renamed")
if (Sys.which("exiftool") != ""){
renaming.table <- imageRename(inDir = raw_images,
outDir = images_renamed,
hasCameraFolders = TRUE,
keepCameraSubfolders = TRUE,
copyImages = TRUE,
writecsv = TRUE
)
}--
You received this message because you are subscribed to the Google Groups "camtrapR" group.
To unsubscribe from this group and stop receiving emails from it, send an email to camtrapr+u...@googlegroups.com.
To view this discussion on the web, visit https://groups.google.com/d/msgid/camtrapr/de643b9e-bd1d-4ce9-8ecf-6e26c565cc9bn%40googlegroups.com.