remove redundant token check

R-ArcGIS · Jan 22, 2024 · 84a5dd2 · 84a5dd2
1 parent 74bbd42
commit 84a5dd2
Showing 1 changed file with 0 additions and 15 deletions.
diff --git a/R/get-estimates.R b/R/get-estimates.R
@@ -35,21 +35,6 @@ get_layer_estimates <- function(x, token = arc_token()) {
     "getEstimates"
   )
 
-  # token bug :[
-  if (token != "") {
-    req <-
-      httr2::req_auth_bearer_token(
-        httr2::req_url_query(est_req, f = "json"),
-        token
-      )
-      resp <-  httr2::req_perform(req)
-  } else {
-    resp <-
-      httr2::req_perform(
-        httr2::req_url_query(est_req, f = "json")
-      )
-  }
-
   # process json string
   res_raw <- RcppSimdJson::fparse(httr2::resp_body_string(resp))