Allow sfc entries #92

mikejohnson51 · Dec 23, 2023 · 09fd28b · 09fd28b
1 parent 6db5c88
commit 09fd28b
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 0 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -0,0 +1,4 @@
+# climateR 0.3.3
+
+* Change environment handling to allow climateR functions to be used in other functions
+* Change AOI handling to allow for `sfc`
diff --git a/R/climater_filter.R b/R/climater_filter.R
@@ -111,6 +111,10 @@ climater_filter <- function(id = NULL,
 
   ### ---- AOI filter
   if(!is.null(AOI)){
+
+    if(inherits(AOI, "sfc")){
+      AOI = vect(AOI)
+    }
 
     gid = sapply(1:nrow(catalog), function(x) {
       suppressWarnings({

diff --git a/R/dap.R b/R/dap.R
@@ -69,6 +69,8 @@ dap <- function(URL = NULL,
 
   if(inherits(AOI, "list")){
     aoi = AOI[[1]]
+  } else if(inherits(AOI, "sfc")){
+    aoi = vect(AOI)
   } else {
     aoi = AOI
   }