Update httr2.R

Author: ConnorB

R/httr2.R

@@ -1,7 +1,7 @@
 http_req_throttle <- function(req) {
   httr2::req_throttle(
     req,
-    capacity = 30,
+    capacity = 120,
     fill_time_s = 60
   )
 }
@@ -11,7 +11,7 @@ http_req_perform_parallel <- function(
   ...,
   on_error = c("stop", "return", "continue"),
   progress = FALSE,
-  max_active = 4
+  max_active = 8
 ) {
   on_error <- match.arg(on_error)
   reqs <- lapply(reqs, http_req_throttle)