This function creates species subdirectories within station directories. They can be used for species identification by manually moving images into the respective species directories. The function can also delete empty species directories (if species were not detected at sites). It is not necessary to run this function if animals will be identified by metadata tagging.
1 2 3 4 5
character. Directory containing camera trap images sorted into station subdirectories (e.g. inDir/StationA/)
logical. Do the station directories in
character. names of species directories to be created in every station (or station/camera) subdirectory of
logical. Indicating whether to create (TRUE) or remove (FALSE) species directories .
This function should be run after
Empty directories can be created as containers for species identification if images are identified with the drag & drop method. After species identification is complete, empty species directories can be deleted using
removeFolders = TRUE. The function will delete only directories which are specified in
hasCameraFolders was set to
TRUE in function
hasCameraFolders must be set to
TRUE here too. Species directories will then be created within each camera subdirectory of each station directory.
if the user wishes to identify species by metadata tagging, running this function is not needed.
data.frame with directory names and an indicator for whether directories were created or deleted.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
## Not run: # create dummy directories for tests # (normally, you'd use directory containing renamed, unsorted images) # this will be used as inDir wd_createDirTest <- file.path(getwd(), "createSpeciesFoldersTest") # now we create 2 station subdirectories dirs_to_create <- file.path(wd_createDirTest, c("StationA", "StationB")) sapply(dirs_to_create, FUN = dir.create, recursive = TRUE) # species names for which we want to create subdirectories species <- c("Sambar Deer", "Bay Cat") # create species subdirectories SpecFolderCreate1 <- createSpeciesFolders (inDir = wd_createDirTest, species = species, hasCameraFolders = FALSE, removeFolders = FALSE) SpecFolderCreate1 # check if directories were created list.dirs(wd_createDirTest) # delete empty species directories SpecFolderCreate2 <- createSpeciesFolders (inDir = wd_createDirTest, species = species, hasCameraFolders = FALSE, removeFolders = TRUE) SpecFolderCreate2 # check if species directories were deleted list.dirs(wd_createDirTest) ## End(Not run)