Implement resp_request()

NEWS.md

@@ -1,5 +1,6 @@
 # httr2 (development version)
 
+* New `resp_request()` aids debugging by returning the request associated with a response (#604).
 * New `url_modify()` makes it easier to modify an existing url (#464).
 * New `req_url_relative()` for constructing relative urls (#449).
 * `url_parse()` gains `base_url` argument so you can also use it to parse relative URLs (#449).

R/resp-request.R

@@ -0,0 +1,16 @@
+#' Find the request responsible for a response
+#'
+#' To make debugging easier, httr2 includes the request that was used to
+#' generate every response. You can use this function to access it.
+#'
+#' @inheritParams resp_header
+#' @export
+#' @examples
+#' req <- request_test()
+#' resp <- req_perform(req)
+#' resp_request(resp)
+resp_request <- function(resp) {
+  check_response(resp)
+
+  resp$request
+}

tests/testthat/test-resp-request.R

@@ -0,0 +1,5 @@
+test_that("can extract request", {
+  req <- request_test()
+  resp <- req_perform(req)
+  expect_equal(resp_request(resp), req)
+})