Make url_exists more robust

r-universe-org · Oct 28, 2024 · f58566f · f58566f
1 parent 2039cc0
commit f58566f
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/R/buildtools.R b/R/buildtools.R
@@ -237,8 +237,14 @@ base64_gunzip <- function(b64){
 }
 
 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(10)
+  }
+  stop("Failed to connect to: ", url)
 }
 
 sysdep_shortname <- function(x){