restore bbox field to the query

mckeea · mckeea · commit a386bb9eb257 · 2024-06-26T09:16:56.000Z
diff --git a/R/client.R b/R/client.R
@@ -408,8 +408,7 @@ Client <- R6::R6Class("Client",
             data[[param]][["items"]][[3]]$maximum,
             data[[param]][["items"]][[4]]$maximum
           )
-          # obj <- c(obj, setNames(list(extent), "bbox"))
-          # obj$bbox <- list(extent)
+          obj$bbox <- extent
           next
         }
 

Original file line number	Diff line number	Diff line change
`@@ -408,8 +408,7 @@ Client <- R6::R6Class("Client",`
`408`	`408`	`data[[param]][["items"]][[3]]$maximum,`
`409`	`409`	`data[[param]][["items"]][[4]]$maximum`
`410`	`410`	`)`
`411`		`- # obj <- c(obj, setNames(list(extent), "bbox"))`
`412`		`- # obj$bbox <- list(extent)`
	`411`	`+ obj$bbox <- extent`
`413`	`412`	`next`
`414`	`413`	`}`
`415`	`414`