## Not run:
# # define image directory
# wd_images_ID <- system.file("pictures/sample_images", package = "camtrapR")
# wd_images_ID_copy <- file.path(tempdir(), "sample_species_images")
#
# species_to_copy <- "VTA" # = Viverra tangalunga, Malay Civet
#
# specImagecopy <- getSpeciesImages(species = species_to_copy,
# inDir = wd_images_ID,
# outDir = wd_images_ID_copy,
# createStationSubfolders = FALSE,
# IDfrom = "directory"
# )
# ## End(Not run)
Run the code above in your browser using DataLab