Fix bug where multiple years fail check in year range

ropensci · Jan 14, 2025 · 0fac645 · 0fac645
1 parent 951fd2f
commit 0fac645
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/R/get_chirts.R b/R/get_chirts.R
@@ -231,7 +231,7 @@ get_chirts.SpatExtent <- function(object, dates, var, as.raster = TRUE, ...){
 
   # year range
   yrange <- seq(1983, 2016, 1)
-  if (unique(years) %notin% yrange) {
+  if (any(unique(years) %notin% yrange)) {
     stop(call. = FALSE,
          "CHIRTS data is currently available from 1983 to 2016. ",
          "Soon available to near-present.")

diff --git a/chirps.Rproj b/chirps.Rproj
@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: c21b96f2-cc6e-4f20-94ac-d2da6c626fe1
 
 RestoreWorkspace: Default
 SaveWorkspace: No