fix error with missing resp variable

kbvernon · kbvernon · commit 643cf359feaa · 2024-01-22T14:57:51.000-07:00
diff --git a/R/get-estimates.R b/R/get-estimates.R
@@ -35,6 +35,10 @@ get_layer_estimates <- function(x, token = arc_token()) {
     "getEstimates"
   )
 
+  resp <- httr2::req_perform(
+      httr2::req_url_query(est_req, f = "json")
+  )
+
   # process json string
   res_raw <- RcppSimdJson::fparse(httr2::resp_body_string(resp))
 

Original file line number	Diff line number	Diff line change
`@@ -35,6 +35,10 @@ get_layer_estimates <- function(x, token = arc_token()) {`
`35`	`35`	`"getEstimates"`
`36`	`36`	`)`
`37`	`37`
	`38`	`+ resp <- httr2::req_perform(`
	`39`	`+ httr2::req_url_query(est_req, f = "json")`
	`40`	`+ )`
	`41`	`+`
`38`	`42`	`# process json string`
`39`	`43`	`res_raw <- RcppSimdJson::fparse(httr2::resp_body_string(resp))`
`40`	`44`