Make url_exists more robust

r-universe-org · Oct 28, 2024 · da41c11 · da41c11
1 parent 2039cc0
commit da41c11
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/R/buildtools.R b/R/buildtools.R
@@ -236,9 +236,16 @@ base64_gunzip <- function(b64){
   rawToChar(memDecompress(bin, 'gzip'))
 }
 
+# Account for some random GHA network failures
 url_exists <- function(url){
-  req <- curl::curl_fetch_memory(url)
-  return(req$status < 400)
+  for(i in 1:3){
+    try({
+      req <- curl::curl_fetch_memory(url)
+      return(req$status < 400)
+    })
+    Sys.sleep(3)
+  }
+  stop("Failed to connect to: ", url)
 }
 
 sysdep_shortname <- function(x){