catch errors in check_urls; fixes #38

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: allcontributors
 Title: Acknowledge all Contributors to a Project
-Version: 0.1.1.005
+Version: 0.1.1.006
 Authors@R: 
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"))
 Description: Acknowledge all contributors to a project via a single

R/urlcheck.R

@@ -59,7 +59,32 @@ check_github_urls <- function (ctbs, quiet = FALSE) {
             pool = pool
         )
     }
-    curl::multi_run (pool = pool)
+    chk <- tryCatch (
+        curl::multi_run (pool = pool),
+        error = function (e) NULL
+    )
+    # Retry request on fail:
+    if (is.null (chk)) {
+        n_retries <- 3L
+        n_actual <- 1L
+        while (n_actual <= n_retries && is.null (chk)) {
+            Sys.sleep (1)
+            chk <- tryCatch (
+                curl::multi_run (pool = pool),
+                error = function (e) NULL
+            )
+            n_actual <- n_actual + 1
+        }
+    }
+    if (is.null (chk)) {
+        if (!quiet) {
+            message (
+                "\r", cli::col_green (cli::symbol$cross),
+                " Checking GitHub URLs failed; contributors will be added regardless"
+            )
+        }
+        return (ctbs)
+    }
 
     if (!quiet) {
         message (
@@ -72,7 +97,7 @@ check_github_urls <- function (ctbs, quiet = FALSE) {
     for (i in seq_along (out)) {
         if (inherits (hs [[i]], "error")) {
             out [[i]] <- -1L
-        } else {
+        } else if ("status_code" %in% names (hs [[i]])) {
             out [[i]] <- hs [[i]]$status_code
         }
     }

codemeta.json

@@ -7,7 +7,7 @@
   "codeRepository": "https://github.com/ropenscilabs/allcontributors",
   "issueTracker": "https://github.com/ropenscilabs/allcontributors/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.1.005",
+  "version": "0.1.1.006",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",