if (FALSE) {
# It's impossible to create a functioning example since you would have to manually stop the process
# However, here is how this function is used:
## This example will load an entire day of audios to your computer, so beware.
### Downloading audiofiles from public Zenodo library
dir <- tempdir()
recName <- paste0("GAL24576_20250401_", sprintf("%06d", seq(0, 230000, by = 10000)),".wav")
recDir <- paste(dir, recName, sep = "/")
for(rec in recName) {
print(rec)
url <- paste0("https://zenodo.org/records/17575795/files/", rec, "?download=1")
download.file(url, destfile = paste(dir, rec, sep = "/"), mode = "wb")
}
sat <- soundSat(dir, backup = dir, wl = 256)
# Now pretend the process was interrupted (manually/your R crashed/your computer turned off)
# To recall the backup you simply:
satB <- satBackup(dir, dir)
unlink(recDir)
}
Run the code above in your browser using DataLab