wd_images_ID <- system.file("pictures/sample_images_tagged/LeopardCat", package = "camtrapR")
# missing space in species = "LeopardCat" is because of CRAN package policies
if (Sys.which("exiftool") != ""){ # only run these examples if Exiftool is available
rec.db.pbe <- recordDatabaseIndividual(inDir = wd_images_ID,
minDeltaTime = 60,
hasStationFolders = FALSE,
hasIndividualFolders = FALSE,
camerasIndependent = FALSE,
writecsv = FALSE,
customMetadataTags = TRUE,
metadataIDTag = "individual",
additionalMetadataTags = c("Model", "Make"),
timeZone = "Asia/Kuala_Lumpur"
)
} else { # show function output if Exiftool is not available
print("Exiftool is not available. Cannot test function")
data(recordDatabaseIndividualSample)
}
Run the code above in your browser using DataLab