Try a ten minute time out for BOM's FTP Server

ropensci · Jun 7, 2024 · ea095ae · ea095ae
1 parent 6a06545
commit ea095ae
Show file tree

Hide file tree

Showing 7 changed files with 12 additions and 12 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 = 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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")