Use req_method_get in load_response for httr2 1.0 compat

nealrichardson · Nov 7, 2023 · 5badba1 · 5badba1
1 parent 8ffd589
commit 5badba1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/mock-api.R b/R/mock-api.R
@@ -121,15 +121,15 @@ load_response <- function(file, req) {
   } else if (ext %in% names(EXT_TO_CONTENT_TYPE)) {
     response(
       url = req$url,
-      method = req$method,
+      method = get_request_method(req),
       headers = list(`Content-Type` = EXT_TO_CONTENT_TYPE[[ext]]),
       status_code = 200L,
       body = readBin(file, "raw", n = file.size(file))
     )
   } else if (ext == "204") {
     response(
       url = req$url,
-      method = req$method,
+      method = get_request_method(req),
       status_code = 204L
     )
   } else {