From e710d8213b2b616e08d095851c75d3027fa3b376 Mon Sep 17 00:00:00 2001
From: Josiah Parry <josiah.parry@gmail.com>
Date: Wed, 27 Dec 2023 08:57:05 -0500
Subject: [PATCH] get rid of native pipe

---
 R/get-estimates.R | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/R/get-estimates.R b/R/get-estimates.R
index 242763a..8710bfa 100644
--- a/R/get-estimates.R
+++ b/R/get-estimates.R
@@ -37,19 +37,21 @@ get_layer_estimates <- function(x, token = Sys.getenv("ARCGIS_TOKEN")) {
 
   # token bug :[
   if (token != "") {
-    resp <-
-      httr2::req_url_query(est_req, f = "json") |>
-      httr2::req_auth_bearer_token(token) |>
-      httr2::req_perform()
+    req <-
+      httr2::req_auth_bearer_token(
+        httr2::req_url_query(est_req, f = "json"),
+        token
+      )
+      resp <-  httr2::req_perform(req)
   } else {
     resp <-
-      httr2::req_url_query(est_req, f = "json") |>
-      httr2::req_perform()
+      httr2::req_perform(
+        httr2::req_url_query(est_req, f = "json")
+      )
   }
 
   # process json string
-  res_raw <- httr2::resp_body_string(resp) |>
-    RcppSimdJson::fparse()
+  res_raw <- RcppSimdJson::fparse(httr2::resp_body_string(resp))
 
   # process extent if present
   ext <- res_raw[["extent"]]