fix: return status even on error

JamesHWade · Mar 2, 2024 · 09f497d · 09f497d
1 parent 0dc4c27
commit 09f497d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/harvest-docs.R b/R/harvest-docs.R
@@ -21,12 +21,14 @@ check_url <- function(url) {
     try(
       {
         httr2::request(url) |>
-          httr2::req_error(is_error = function(resp) FALSE) |>
+          httr2::req_error(is_error = \(resp) FALSE) |>
           httr2::req_perform() |>
           httr2::resp_status()
       },
       TRUE
     )
+
+  if (inherits(status, "try-error")) return(invisible(FALSE))
   status
 }