From ea1b0bc60a3048fa902046b99ce8233c3a8fdb39 Mon Sep 17 00:00:00 2001
From: LTLA <infinite.monkeys.with.keyboards@gmail.com>
Date: Mon, 22 Apr 2024 21:59:43 -0700
Subject: [PATCH] Properly redirect POST requests with the original body.

---
 R/utils.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/utils.R b/R/utils.R
index de08f65..1b9aa9e 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -60,6 +60,7 @@ dump_request <- function(staging, url, action, payload) {
     req <- request(paste0(url, "/new/", basename(actual)))
     req <- req_method(req, "POST")
     req <- handle_error(req)
+    req <- req_options(req, postredir=7) # see https://curl.se/libcurl/c/CURLOPT_POSTREDIR.html.
     res <- req_perform(req)
     resp_body_json(res)
 }