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()
# collect all their data
resps |> resps_successes() |> resps_data(\(resp) resp_body_json(resp))
# find requests corresponding to failure responses
resps |> resps_failures() |> resps_requests()
Run the code above in your browser using DataLab