Update method-filterFeatures.R

sneumann · Jan 29, 2024 · e31c525 · e31c525
1 parent d262e1e
commit e31c525
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/method-filterFeatures.R b/R/method-filterFeatures.R
@@ -617,6 +617,6 @@ setMethod("filterFeatures",
 
 #' @noRd
 .check_index_range <- function(x, l, name = "") {
-    if (!all(x %in% seq_len(l)) | length(x) == 0)
+    if (length(x) == 0 || !all(x %in% seq_len(l))) # check that work ??
         stop(name, " should be between 1 and ", l)
 }