# define image directory
wd_images_ID <- system.file("pictures/sample_images", package = "camtrapR")
file.copy(from = wd_images_ID, to = getwd(), recursive = TRUE)
wd_images_ID_copy <- paste(getwd(), "sample_images", sep = "/")
# append species names
SpecNameAppend1 <- appendSpeciesNames(inDir = wd_images_ID_copy,
removeNames = FALSE,
writecsv = FALSE)
SpecNameAppend1
# remove species names
SpecNameRemove1 <- appendSpeciesNames(inDir = wd_images_ID_copy,
removeNames = TRUE,
writecsv = FALSE)
SpecNameRemove1
Run the code above in your browser using DataLab