# create dummy directory for tests (this will be used as inDir)
# (normally, you'd set up an empty directory, e.g. .../raw_images)
wd_createStationDir <- paste(getwd(), "createStationFoldersTest", sep = "/")
# now we load the sample camera trap station data frame
data(camtraps)
# species names for which we want to create subdirectories
stations2create <- as.character(camtraps$Station)
# create station directories in
StationFolderCreate1 <- createStationFolders (inDir = wd_createStationDir,
stations = stations2create)
StationFolderCreate1
# check if directories were created
list.dirs(wd_createStationDir)
Run the code above in your browser using DataLab