wd_images_ID <- system.file("pictures/sample_images", package = "camtrapR")
if (Sys.which("exiftool") != ""){ # only run this example if Exiftool is available
check.folders <- checkSpeciesFolders(inDir = wd_images_ID,
hasCameraSubfolders = FALSE,
maxDeltaTime = 120,
writecsv = FALSE)
check.folders # In the example, 2 different species were photographed within 2 minutes.
# now exclude one of these 2 species
check.folders2 <- checkSpeciesFolders(inDir = wd_images_ID,
hasCameraSubfolders = FALSE,
maxDeltaTime = 120,
excludeSpecies = "EGY",
writecsv = FALSE)
check.folders2
# now we check only one station
check.folders3 <- checkSpeciesFolders(inDir = wd_images_ID,
hasCameraSubfolders = FALSE,
maxDeltaTime = 120,
stationsToCheck = "StationB",
writecsv = FALSE)
}
Run the code above in your browser using DataLab