diff --git a/R/SelectorChecker.R b/R/SelectorChecker.R
index 7b69a8b8b30b29100b0e0e02687cfaadd7deb144..92e1d1b93063349141feae9ecece02f6bf0ab03b 100644
--- a/R/SelectorChecker.R
+++ b/R/SelectorChecker.R
@@ -50,7 +50,7 @@ SelectorChecker <- function(selectors, var = NULL, return_indices = TRUE,
       crescent_selectors <- TRUE
       if (all(sapply(selectors, 
                      function(x) {
-                       any(c('numeric', "POSIXct", "POSIXlt", "POSIXt", "Date") %in% class(x))
+                       any(c("numeric", "integer", "POSIXct", "POSIXlt", "POSIXt", "Date") %in% class(x))
                      }))) {
         if (selectors[[2]] < selectors[[1]]) {
           crescent_selectors <- FALSE