Update checks.R

USDAForestService · Mar 7, 2024 · fd7c97e · fd7c97e
1 parent 26b083b
commit fd7c97e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/checks.R b/R/checks.R
@@ -167,7 +167,7 @@ check.logic <- function(x, statement, filternm=NULL, stopifnull=FALSE,
 	  }
 	  chklogicchar <- logic.chars[sapply(logic.chars, 
 	               function(x, part){ grepl(x, part, ignore.case=TRUE) }, part)]
-   
+
 	  if (length(chklogicchar) > 1) { 
 	    if (length(chklogicchar) == 2 && all(c("notin", "in") %in% chklogicchar)) {
 	      chklogicchar <- "notin"
@@ -183,6 +183,8 @@ check.logic <- function(x, statement, filternm=NULL, stopifnull=FALSE,
 	      chklogicchar <- "<="
 	    } else if (length(chklogicchar) == 2 && all(c(">=", ">") %in% chklogicchar)) {
 	      chklogicchar <- ">="
+	    } else if (length(chklogicchar) == 2 && all(c("<", ">") %in% chklogicchar)) {
+	      chklogicchar <- "<>"
 	    } else {
 		  stop("more than one logic char: ", toString(chklogicchar))
 		}