hotfix: retry timing

dshemetov · dshemetov · commit cfee36989ae4 · 2025-04-02T20:59:28.000-07:00
diff --git a/R/aux_data_utils.R b/R/aux_data_utils.R
@@ -785,7 +785,7 @@ get_s3_object_last_modified <- function(key, bucket, missing_value = MIN_TIMESTA
 get_socrata_updated_at <- function(dataset_url, missing_value = MAX_TIMESTAMP) {
   tryCatch(
     {
-      httr::with_config(httr::config(timeout = 30), httr::RETRY("GET", dataset_url, times = 10, pause_min = 5)) %>%
+      httr::with_config(httr::config(timeout = 5), httr::RETRY("GET", dataset_url, times = 5, pause_min = 5, pause_cap = 5)) %>%
         httr::content() %>%
         # This field comes in as integer seconds since epoch, so we need to convert it.
         pluck("rowsUpdatedAt") %>%

Original file line number	Diff line number	Diff line change
`@@ -785,7 +785,7 @@ get_s3_object_last_modified <- function(key, bucket, missing_value = MIN_TIMESTA`
`785`	`785`	`get_socrata_updated_at <- function(dataset_url, missing_value = MAX_TIMESTAMP) {`
`786`	`786`	`tryCatch(`
`787`	`787`	`{`
`788`		`- httr::with_config(httr::config(timeout = 30), httr::RETRY("GET", dataset_url, times = 10, pause_min = 5)) %>%`
	`788`	`+ httr::with_config(httr::config(timeout = 5), httr::RETRY("GET", dataset_url, times = 5, pause_min = 5, pause_cap = 5)) %>%`
`789`	`789`	`httr::content() %>%`
`790`	`790`	`# This field comes in as integer seconds since epoch, so we need to convert it.`
`791`	`791`	`pluck("rowsUpdatedAt") %>%`