Similar to resps_requests() and resp_url() etc. Just a simple:

resp_request <- function (resp) {
  check_response(resp)
  resp$request
}

mostly to let people know that it's possible.