if (FALSE) {
# copy sample images to temporary directory (so we don't mess around in the package directory)
wd_images_ID <- system.file("pictures/sample_images_species_dir", package = "camtrapR")
file.copy(from = wd_images_ID, to = tempdir(), recursive = TRUE)
wd_images_ID_copy <- file.path(tempdir(), "sample_images_species_dir")
data(timeShiftTable)
timeshift_run <- timeShiftImages(inDir = wd_images_ID_copy,
timeShiftTable = timeShiftTable,
stationCol = "Station",
hasCameraFolders = FALSE,
timeShiftColumn = "timeshift",
timeShiftSignColumn = "sign",
undo = FALSE
)
timeshift_undo <- timeShiftImages(inDir = wd_images_ID_copy,
timeShiftTable = timeShiftTable,
stationCol = "Station",
hasCameraFolders = FALSE,
timeShiftColumn = "timeshift",
timeShiftSignColumn = "sign",
undo = TRUE
)
}
Run the code above in your browser using DataLab