inst/extdata/sea_explorer/realtime_raw/download.R

In dankelley/oceanglider: Analysis of Oceanographic Glider Data

# Sea-Explorer, realtime raw mode (gli and pld1 files)
n <- 4 # number of files to download
urlRaw <- paste0(
    "https://cproof.uvic.ca/gliderdata/deployments/",
    "dfo-eva035/dfo-eva035-20190718/",
    "realtime_raw/"
)
subs <- paste0("sea035.12.gli.sub.", 1:n)
raws <- paste0("sea035.12.pld1.sub.", 1:n)
for (i in 1:n) {
    if (!file.exists(subs[i])) {
        try(download.file(paste0(urlRaw, subs[i]), subs[i]))
    }
}
for (i in 1:n) {
    if (!file.exists(raws[i])) {
        try(download.file(paste0(urlRaw, raws[i]), raws[i]))
    }
}