diff --git a/R/find_forecast_towns.R b/R/find_forecast_towns.R index e4aa15d9..082218fb 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 = 120L) + op <- options(timeout = 480L) on.exit(options(op)) on.exit(unlink(file_dbf)) diff --git a/R/get_bom_metadata.R b/R/get_bom_metadata.R index de5ec506..eba130e2 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 = 120L) + op <- options(timeout = 480L) 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 4a25f73a..85442429 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 = 120L) + op <- options(timeout = 480L) on.exit(options(op)) # load the XML from ftp diff --git a/R/get_precis_forecast.R b/R/get_precis_forecast.R index f1b9376f..71e7a824 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 = 120L) + op <- options(timeout = 480L) on.exit(options(op)) # load the XML from ftp diff --git a/R/get_radar_imagery.R b/R/get_radar_imagery.R index e88dc04d..4f1e741f 100644 --- a/R/get_radar_imagery.R +++ b/R/get_radar_imagery.R @@ -39,7 +39,7 @@ get_available_radar <- function(radar_id = "all") { - op <- options(timeout = 120L) + op <- options(timeout = 480L) on.exit(options(op)) ftp_base <- "ftp://ftp.bom.gov.au/anon/gen/radar/" @@ -165,7 +165,7 @@ get_radar_imagery <- get_radar <- ) } - op <- options(timeout = 120L) + op <- options(timeout = 480L) 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 457ced12..dc39b32c 100644 --- a/R/get_satellite_imagery.R +++ b/R/get_satellite_imagery.R @@ -152,7 +152,7 @@ get_satellite_imagery <- get_satellite <- stop("{weatherOz} only supports working with one Product ID at a time\n") } - op <- options(timeout = 120L) + op <- options(timeout = 480L) on.exit(options(op)) ftp_base <- "ftp://ftp.bom.gov.au/anon/gen/gms/" @@ -278,7 +278,7 @@ get_satellite_imagery <- get_satellite <- handle = list_files, TCP_KEEPALIVE = 60L, CONNECTTIMEOUT = 60L, - TIMEOUT = 120L, + timeout = 480L, USERAGENT = USERAGENT, ftp_use_epsv = TRUE, dirlistonly = TRUE diff --git a/R/internal_functions.R b/R/internal_functions.R index 26bf20d4..931c6932 100644 --- a/R/internal_functions.R +++ b/R/internal_functions.R @@ -442,7 +442,7 @@ .get_url <- function(remote_file) { - op <- options(timeout = 120L) + op <- options(timeout = 480L) on.exit(options(op)) bom_file <- file.path(tempdir(), "BOM_file.xml")