Switch to httr2

DESCRIPTION

@@ -51,7 +51,7 @@ Suggests:
     foghorn (>= 1.4.2),
     gh (>= 1.3.0),
     gmailr (>= 1.0.1),
-    httr (>= 1.4.3),
+    httr2 (>= 1.0.0),
     knitr (>= 1.39),
     lintr (>= 3.0.0),
     MASS,

R/check-mac.R

@@ -55,27 +55,21 @@ check_mac_release <- function(
 
   url <- "https://mac.r-project.org/macbuilder/v1/submit"
 
-  rlang::check_installed("httr")
-  body <- list(pkgfile = httr::upload_file(built_path))
+  rlang::check_installed("httr2")
+  body <- list(pkgfile = curl::form_file(built_path))
 
   if (length(dep_built_paths) > 0) {
-    uploads <- lapply(dep_built_paths, httr::upload_file)
+    uploads <- lapply(dep_built_paths, curl::form_file)
     names(uploads) <- rep("depfiles", length(uploads))
     body <- append(body, uploads)
   }
 
-  res <- httr::POST(
-    url,
-    body = body,
-    headers = list(
-      "Content-Type" = "multipart/form-data"
-    ),
-    encode = "multipart"
-  )
-
-  httr::stop_for_status(res, task = "Uploading package")
+  req <- httr2::request(url) |>
+    httr2::req_body_multipart(!!!body) |>
+    httr2::req_headers(Accept = "application/json")
+  resp <- httr2::req_perform(req)
 
-  response_url <- httr::content(res)$url
+  response_url <- httr2::resp_body_json(resp)$url
 
   if (!quiet) {
     time <- strftime(Sys.time() + 10 * 60, "%I:%M %p")

R/release.R

@@ -297,35 +297,20 @@ upload_cran <- function(pkg, built_path, call = parent.frame()) {
 
   # Initial upload ---------
   cli::cli_inform(c(i = "Uploading package & comments"))
-  rlang::check_installed("httr")
+  rlang::check_installed("httr2")
   body <- list(
     pkg_id = "",
     name = maint$name,
     email = maint$email,
-    uploaded_file = httr::upload_file(built_path, "application/x-gzip"),
+    uploaded_file = curl::form_file(built_path, "application/x-gzip"),
     comment = comments,
     upload = "Upload package"
   )
-  r <- httr::POST(cran_submission_url, body = body)
-
-  # If a 404 likely CRAN is closed for maintenance, try to get the message
-  if (httr::status_code(r) == 404) {
-    msg <- ""
-    try({
-      r2 <- httr::GET(sub("index2", "index", cran_submission_url))
-      msg <- extract_cran_msg(httr::content(r2, "text"))
-    })
-    cli::cli_abort(
-      c(
-        "*" = "Submission failed",
-        "x" = msg
-      ),
-      call = call
-    )
-  }
+  req <- httr2::request(cran_submission_url) |>
+    httr2::req_body_multipart(!!!body)
 
-  httr::stop_for_status(r)
-  new_url <- httr::parse_url(r$url)
+  httr2::resp_check_status(resp)
+  new_url <- httr2::url_parse(httr2::resp_url(resp))
 
   # Confirmation -----------
   cli::cli_inform(c(i = "Confirming submission"))
@@ -336,9 +321,12 @@ upload_cran <- function(pkg, built_path, call = parent.frame()) {
     policy_check = "1/",
     submit = "Submit package"
   )
-  r <- httr::POST(cran_submission_url, body = body)
-  httr::stop_for_status(r)
-  new_url <- httr::parse_url(r$url)
+  req <- do.call(
+    httr2::req_body_multipart,
+    c(list(httr2::request(cran_submission_url)), body)
+  )
+  resp <- httr2::req_perform(req)
+  new_url <- httr2::url_parse(httr2::resp_url(resp))
   if (new_url$query$submit == "1") {
     cli::cli_inform(c(
       "v" = "Package submission successful",

R/run-source.R

@@ -31,14 +31,12 @@
 source_url <- function(url, ..., sha1 = NULL) {
   stopifnot(is.character(url), length(url) == 1)
   rlang::check_installed("digest")
-  rlang::check_installed("httr")
+  rlang::check_installed("httr2")
 
   temp_file <- file_temp()
   on.exit(file_delete(temp_file), add = TRUE)
 
-  request <- httr::GET(url)
-  httr::stop_for_status(request)
-  writeBin(httr::content(request, type = "raw"), temp_file)
+  httr2::req_perform(httr2::request(url), path = temp_file)
 
   check_sha1(temp_file, sha1)
 

inst/WORDLIST

@@ -96,6 +96,7 @@ hadley
 http
 https
 httr
+httr2
 hunspell
 importFrom
 initialising