From 2576319b8b1920a04c5fcba2829d80b8f487ff13 Mon Sep 17 00:00:00 2001
From: aho <an.ho@bsc.es>
Date: Wed, 23 Aug 2023 13:08:19 +0200
Subject: [PATCH] Allow selectors to be integer

---
 R/SelectorChecker.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/SelectorChecker.R b/R/SelectorChecker.R
index 7b69a8b..92e1d1b 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
-- 
GitLab