req_retry all slack 429 errors; closes #36

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: dashboard
 Title: What the Package Does (One Line, Title Case)
-Version: 0.2.2.023
+Version: 0.2.2.024
 Authors@R: 
   person(given = "First",
          family = "Last",

R/editors-slack.R

@@ -26,14 +26,32 @@ get_slack_editors_status <- function () {
 
     u <- "https://slack.com/api/users.list"
     headers <- list (Authorization = paste0 ("Bearer ", tok))
+    # req_retry is to avoid transitent 429 errors from Slack API requests via
+    # GitHub
     req <- httr2::request (u) |>
         httr2::req_headers ("Authorization" = headers) |>
-        httr2::req_method ("GET")
+        httr2::req_method ("GET") |>
+        httr2::req_retry (
+            max_tries = 3,
+            is_transient = \(resp) httr2::resp_status(resp) %in% c(429, 503)
+        )
     resp <- httr2::req_perform (req)
-    httr2::resp_check_status (resp)
-    x <- httr2::resp_body_json (resp, simplifyVector = TRUE)
 
-    members <- x$members [which (x$members$id %in% editors), ]
+    if (httr2::resp_is_error (resp)) {
+
+        members <- list (
+            id = NULL,
+            name = NULL,
+            real_name = NULL,
+            status = NULL
+        )
+
+    } else {
+
+        x <- httr2::resp_body_json (resp, simplifyVector = TRUE)
+        members <- x$members [which (x$members$id %in% editors), ]
+
+    }
 
     data.frame (
         id = members$id,

codemeta.json

@@ -6,7 +6,7 @@
   "name": "dashboard: What the Package Does (One Line, Title Case)",
   "codeRepository": "https://github.com/ropensci-review-tools/dashboard",
   "license": "https://spdx.org/licenses/MIT",
-  "version": "0.2.2.023",
+  "version": "0.2.2.024",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",