Use even longer timeout for FTP server response

ropensci · Jun 7, 2024 · 8f9f01a · 8f9f01a
1 parent 82707b4
commit 8f9f01a
Show file tree

Hide file tree

Showing 7 changed files with 9 additions and 9 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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")