Switch to httr so we can retry

riparias · Dec 11, 2024 · 93e3a82 · 93e3a82
1 parent 3f41d52
commit 93e3a82
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/R/get_reference.R b/R/get_reference.R
@@ -18,9 +18,10 @@ get_reference <- function() {
       "inst/data/processed/occurrence.csv"
     )
 
-  readr::read_csv(
-    github_csv_url,
-    show_col_types = FALSE,
-    progress = FALSE
-  )
+  httr2::request(github_csv_url) %>%
+    httr2::req_retry() %>%
+    httr2::req_perform() %>%
+    httr2::resp_body_string() %>%
+    readr::read_csv(show_col_types = FALSE,
+                    progress = FALSE)
 }