Fix error with updating repeated keys

Author: arcresu

R/utils.R

@@ -59,7 +59,9 @@ req_body_form_modify <- function(req, ..., .multi = "error", .call = caller_env(
   if (is.null(req$body) || req$body$type != "form") {
     cli::cli_abort("Can only be used after {.fn httr2::req_body_form}", call = .call)
   }
-  new_body <- utils::modifyList(req$body$data, data)
+  # Allow for repeated names in data: since R tools don't play nicely with this
+  # situation, remove all modified entries from data first.
+  new_body <- utils::modifyList(req$body$data[!names(req$body$data) %in% names(data)], data)
   httr2::req_body_form(req, !!!new_body, .multi = .multi)
 }
 
@@ -135,4 +137,4 @@ check_scalar_integer <- check_arg(rlang::is_scalar_integer, "a scalar integer")
 check_scalar_positive_integer <- check_arg(
   \(x) rlang::is_scalar_integer(x) && x > 0L,
   "a positive scalar integer"
-)
+)