These function provide a basic toolkit for operating with lists of
responses and possibly errors, as returned by req_perform_parallel()
,
req_perform_sequential()
and req_perform_iterative()
.
resps_successes()
returns a list successful responses.resps_failures()
returns a list failed responses (i.e. errors).resps_requests()
returns the list of requests that corresponds to each request.resps_data()
returns all the data in a single vector or data frame. It requires the vctrs package to be installed.
Usage
resps_successes(resps)
resps_failures(resps)
resps_requests(resps)
resps_data(resps, resp_data)
Examples
reqs <- list(
request(example_url()) |> req_url_path("/ip"),
request(example_url()) |> req_url_path("/user-agent"),
request(example_url()) |> req_template("/status/:status", status = 404),
request("INVALID")
)
resps <- req_perform_parallel(reqs, on_error = "continue")
# find successful responses
resps |> resps_successes()
#> [[1]]
#> <httr2_response>
#> GET http://127.0.0.1:45725/ip
#> Status: 200 OK
#> Content-Type: application/json
#> Body: In memory (27 bytes)
#>
#> [[2]]
#> <httr2_response>
#> GET http://127.0.0.1:45725/user-agent
#> Status: 200 OK
#> Content-Type: application/json
#> Body: In memory (66 bytes)
#>
# collect all their data
resps |> resps_successes() |> resps_data(\(resp) resp_body_json(resp))
#> $origin
#> [1] "127.0.0.1"
#>
#> $`user-agent`
#> [1] "httr2/1.0.7.9000 r-curl/6.0.1 libcurl/7.81.0"
#>
# find requests corresponding to failure responses
resps |> resps_failures() |> resps_requests()
#> [[1]]
#> <httr2_request>
#> GET http://127.0.0.1:45725/status/404
#> Body: empty
#>
#> [[2]]
#> <httr2_request>
#> GET INVALID
#> Body: empty
#>