Remove request from saved responses

nealrichardson · Apr 25, 2024 · 1866f7a · 1866f7a
1 parent cff21ee
commit 1866f7a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/R/capture-requests.R b/R/capture-requests.R
@@ -166,6 +166,7 @@ save_response <- function(response, file, simplify = TRUE) {
     }
     # Needed for httr2 1.0.0
     response$cache <- quote(new.env(parent = emptyenv()))
+    response$request <- NULL
 
     f <- file(dst_file, "wb", encoding = "UTF-8")
     on.exit(close(f))

diff --git a/tests/testthat/test-capture-requests.R b/tests/testthat/test-capture-requests.R
@@ -53,6 +53,7 @@ test_that("We can record a series of requests (a few ways)", {
   teapot <- source(file.path(d, httpbin_mock_url, "status", "418.R"))$value
   expect_s3_class(teapot, "httr2_response")
   expect_identical(resp_status(teapot), 418L)
+  expect_false("request" %in% names(teapot))
   # Make sure that our .html file has HTML
   expect_true(any(grepl(
     "</body>",