include tiles validation in deafrica and deaustralia

M3nin0 · M3nin0 · commit d63222b77c88 · 2024-07-30T19:18:53.000-03:00
diff --git a/R/api_source_deafrica.R b/R/api_source_deafrica.R
@@ -18,6 +18,7 @@
                                             stac_query,
                                             tiles = NULL,
                                             platform = NULL) {
+    .check_that(is.null(tiles))
     # Convert roi to bbox
     roi <- .stac_intersects_as_bbox(stac_query)
     stac_query[["params"]][["intersects"]] <- NULL
diff --git a/R/api_source_deaustralia.R b/R/api_source_deaustralia.R
@@ -18,6 +18,7 @@
                                             stac_query,
                                             tiles = NULL,
                                             platform = NULL) {
+    .check_that(is.null(tiles))
     # Convert roi to bbox
     roi <- .stac_intersects_as_bbox(stac_query)
     stac_query[["params"]][["intersects"]] <- NULL
