# create temporary directory
if (requireNamespace("aws.s3", quietly = TRUE)) {
temp_dir <- paste0(tempdir(),"/bioRad_tmp_files")
dir.create(temp_dir)
download_pvolfiles(
date_min = as.POSIXct("2002-10-01 00:00", tz = "UTC"),
date_max = as.POSIXct("2002-10-01 00:05", tz = "UTC"),
radar = "KBRO",
directory = temp_dir,
overwrite = TRUE
)
# Clean up
unlink(temp_dir, recursive = TRUE)
}
Run the code above in your browser using DataLab