another length >1 logical if

slu-openGIS · Feb 7, 2019 · 148f23b · 148f23b
1 parent e64b0ad
commit 148f23b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/csb_date_filter.R b/R/csb_date_filter.R
@@ -69,7 +69,7 @@ csb_date_filter <- function(.data, var, day = NULL, month = NULL, year = NULL){
   #check that year entry is valid for csb data, warn for entry of 2008.
   if(!missing(year)){
 
-    if(!(year %in% 2008:2019)){
+    if(!all(year %in% 2008:2019)){
       stop("The year given is not valid for these data.")
     }