get rid of native pipe

R-ArcGIS · Dec 27, 2023 · e710d82 · e710d82
1 parent faa2a19
commit e710d82
Showing 1 changed file with 10 additions and 8 deletions.
diff --git 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"]]