resps_*() improvements

.claude/settings.json

@@ -9,6 +9,7 @@
       "Edit(R/**)",
       "Edit(tests/**)",
       "Edit(vignettes/**)",
+      "Edit(NEWS.md)"
     ],
     "deny": []
   }

NAMESPACE

@@ -148,6 +148,7 @@ export(response)
 export(response_json)
 export(resps_data)
 export(resps_failures)
+export(resps_ok)
 export(resps_requests)
 export(resps_successes)
 export(secret_decrypt)

NEWS.md

@@ -1,5 +1,6 @@
 # httr2 (development version)
 
+* New `resps_ok()` returns a logical vector indicating which requests were successful (#807).
 * httr2 will now emit OpenTelemetry traces for all requests when tracing is  enabled. Requires the `otelsdk` package (@atheriel, #729).
 * `req_perform_connection()` no longer errors with `no applicable method for 'close' applied to an object of class "c('httr2_failure', 'httr2_error', 'rlang_error', 'error', 'condition')` (#817).
 * Refactor `url_modify()` to better retain exact formatting of URL components 

R/iterate-responses.R

@@ -1,16 +1,17 @@
 #' Tools for working with lists of responses
 #'
 #' @description
-#' These functions provide a basic toolkit for operating with lists of
+#' These functions provide a basic toolkit for working with lists of
 #' responses and possibly errors, as returned by [req_perform_parallel()],
-#' [req_perform_sequential()] and [req_perform_iterative()].
+#' [req_perform_sequential()], and [req_perform_iterative()].
 #'
 #' * `resps_successes()` returns a list of successful responses.
 #' * `resps_failures()` returns a list of failed responses (i.e. errors).
+#' * `resps_ok()` returns a logical vector indicating which requests were
+#'   successful.
 #' * `resps_requests()` returns the list of requests that corresponds to
-#'   each request.
+#'   each response.
 #' * `resps_data()` returns all the data in a single vector or data frame.
-#'   It requires the vctrs package to be installed.
 #'
 #' @export
 #' @param resps A list of responses (possibly including errors).
@@ -52,6 +53,8 @@ resps_failures <- function(resps) {
   resps[!resps_ok(resps)]
 }
 
+#' @export
+#' @rdname resps_successes
 resps_ok <- function(resps) {
   vapply(resps, is_response, logical(1))
 }