diff --git a/R/find_forecast_towns.R b/R/find_forecast_towns.R index 082218fb..38513ec5 100644 --- a/R/find_forecast_towns.R +++ b/R/find_forecast_towns.R @@ -38,7 +38,7 @@ find_forecast_towns <- file_dbf <- file.path(tempdir(), "AAC_codes.dbf") - op <- options(timeout = 480L) + op <- options(timeout = 600L) on.exit(options(op)) on.exit(unlink(file_dbf)) diff --git a/R/get_bom_metadata.R b/R/get_bom_metadata.R index eba130e2..90545bd1 100644 --- a/R/get_bom_metadata.R +++ b/R/get_bom_metadata.R @@ -9,7 +9,7 @@ #' @noRd .get_bom_metadata <- function() { - op <- options(timeout = 480L) + op <- options(timeout = 600L) on.exit(options(op)) file_in <- file.path(tempdir(), "stations.txt") diff --git a/R/get_coastal_forecast.R b/R/get_coastal_forecast.R index 85442429..84299328 100644 --- a/R/get_coastal_forecast.R +++ b/R/get_coastal_forecast.R @@ -119,7 +119,7 @@ get_coastal_forecast <- function(state = "AUS") { #' @autoglobal .parse_coastal_forecast <- function(xml_url) { - op <- options(timeout = 480L) + op <- options(timeout = 600L) on.exit(options(op)) # load the XML from ftp diff --git a/R/get_precis_forecast.R b/R/get_precis_forecast.R index dd434c67..fea19d93 100644 --- a/R/get_precis_forecast.R +++ b/R/get_precis_forecast.R @@ -133,7 +133,7 @@ get_precis_forecast <- function(state = "AUS") { .parse_precis_forecast <- function(xml_url) { - op <- options(timeout = 480L) + op <- options(timeout = 600L) on.exit(options(op)) # load the XML from ftp diff --git a/R/get_radar_imagery.R b/R/get_radar_imagery.R index 167329d0..5e74f74e 100644 --- a/R/get_radar_imagery.R +++ b/R/get_radar_imagery.R @@ -41,7 +41,7 @@ get_available_radar <- function(radar_id = "all") { - op <- options(timeout = 480L) + op <- options(timeout = 600L) on.exit(options(op)) ftp_base <- "ftp://ftp.bom.gov.au/anon/gen/radar/" @@ -50,8 +50,8 @@ get_available_radar <- function(radar_id = "all") { curl::handle_setopt( handle = list_files, TCP_KEEPALIVE = 200000L, - CONNECTTIMEOUT = 480L, - TIMEOUT = 480L, + CONNECTTIMEOUT = 600L, + TIMEOUT = 600L, ftp_use_epsv = TRUE, dirlistonly = TRUE ) @@ -168,7 +168,7 @@ get_radar_imagery <- get_radar <- ) } - op <- options(timeout = 480L) + op <- options(timeout = 600L) on.exit(options(op)) ftp_base <- "ftp://ftp.bom.gov.au/anon/gen/radar" diff --git a/R/get_satellite_imagery.R b/R/get_satellite_imagery.R index f46fb4b9..0c07a23c 100644 --- a/R/get_satellite_imagery.R +++ b/R/get_satellite_imagery.R @@ -156,7 +156,7 @@ get_satellite_imagery <- get_satellite <- stop("{weatherOz} only supports working with one Product ID at a time\n") } - op <- options(timeout = 480L) + op <- options(timeout = 600L) on.exit(options(op)) ftp_base <- "ftp://ftp.bom.gov.au/anon/gen/gms/" @@ -277,8 +277,8 @@ get_satellite_imagery <- get_satellite <- curl::handle_setopt( handle = list_files, TCP_KEEPALIVE = 60L, - CONNECTTIMEOUT = 480L, - TIMEOUT = 480L, + CONNECTTIMEOUT = 600L, + TIMEOUT = 600L, ftp_use_epsv = TRUE, dirlistonly = TRUE ) diff --git a/R/internal_functions.R b/R/internal_functions.R index 931c6932..d0f77644 100644 --- a/R/internal_functions.R +++ b/R/internal_functions.R @@ -442,7 +442,7 @@ .get_url <- function(remote_file) { - op <- options(timeout = 480L) + op <- options(timeout = 600L) on.exit(options(op)) bom_file <- file.path(tempdir(), "BOM_file.xml")