Fix bug where multiple years fail check in year range

Author: adamhsparks

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.")

chirps.Rproj

@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: c21b96f2-cc6e-4f20-94ac-d2da6c626fe1
 
 RestoreWorkspace: Default
 SaveWorkspace: No