diff --git a/R/SelectorChecker.R b/R/SelectorChecker.R index 92e1d1b93063349141feae9ecece02f6bf0ab03b..fc778fbd3ca362056af9f92d4e8ca487b52cf04b 100644 --- a/R/SelectorChecker.R +++ b/R/SelectorChecker.R @@ -91,7 +91,7 @@ SelectorChecker <- function(selectors, var = NULL, return_indices = TRUE, } } else if (is.numeric(selectors[[i]])) { if (is.numeric(var)) { - + var <- signif(var) tol <- 0 if (!is.null(tolerance)) { if (!is(tolerance, "numeric")) { @@ -99,7 +99,6 @@ SelectorChecker <- function(selectors, var = NULL, return_indices = TRUE, } tol <- tolerance } - val <- selectors[[i]] if (i == 1) {