fix headers httr2 collection; fix response gathering; fix typo

ropensci · Jul 3, 2023 · 8b38d72 · 8b38d72
1 parent 2c060db
commit 8b38d72
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/adapter-httr2.R b/R/adapter-httr2.R
@@ -1,5 +1,5 @@
 httr2_headers <- function(x) {
-  structure(x, class = c("httr2_headers", class(x)))
+  structure(x %||% list(), class = c("httr2_headers", class(x)))
 }
 
 #' Build a httr2 response (`httr2_response`)
@@ -36,7 +36,7 @@ build_httr2_response <- function(req, resp) {
         httr2_headers(resp$response_headers)
       }
     },
-    body = resp$content
+    body = resp$body %||% resp$content
   )
   structure(lst, class = "httr2_response")
 }
@@ -113,7 +113,7 @@ Httr2Adapter <- R6::R6Class("Httr2Adapter",
     build_request   = build_httr2_request,
     build_response  = build_httr2_response,
 
-    request_handler = function(request) vcr::RequestHandlerHttr$new(request),
+    request_handler = function(request) vcr::RequestHandlerHttr2$new(request),
 
     fetch_request = function(request) httr2::req_perform(request)
   )