Remove redundant is.integer() call

Bisaloo · Bisaloo · commit 4a24ad52f8d2 · 2026-04-30T14:14:13.000+02:00
diff --git a/.lintr b/.lintr
@@ -4,6 +4,7 @@ linters: linters_with_defaults(
     any_duplicated_linter(),
     outer_negation_linter(),
     nzchar_linter(),
+    is_numeric_linter(),
     fixed_regex_linter(),
     object_name_linter = object_name_linter(styles = c("snake_case", "symbols", "CamelCase", "SNAKE_CASE"))
   )
diff --git a/R/AnnDataView.R b/R/AnnDataView.R
@@ -368,7 +368,7 @@ convert_to_indices <- function(
       )
     }
     which(subset)
-  } else if (is.integer(subset) || is.numeric(subset)) {
+  } else if (is.numeric(subset)) {
     subset <- as.integer(subset)
     if (any(subset < 1 | subset > max_length)) {
       cli_abort(

Original file line number	Diff line number	Diff line change
`@@ -4,6 +4,7 @@ linters: linters_with_defaults(`
`4`	`4`	`any_duplicated_linter(),`
`5`	`5`	`outer_negation_linter(),`
`6`	`6`	`nzchar_linter(),`
	`7`	`+ is_numeric_linter(),`
`7`	`8`	`fixed_regex_linter(),`
`8`	`9`	`object_name_linter = object_name_linter(styles = c("snake_case", "symbols", "CamelCase", "SNAKE_CASE"))`
`9`	`10`	`)`
Original file line number	Diff line number	Diff line change
`@@ -368,7 +368,7 @@ convert_to_indices <- function(`
`368`	`368`	`)`
`369`	`369`	`}`
`370`	`370`	`which(subset)`
`371`		`- } else if (is.integer(subset) \|\| is.numeric(subset)) {`
	`371`	`+ } else if (is.numeric(subset)) {`
`372`	`372`	`subset <- as.integer(subset)`
`373`	`373`	`if (any(subset < 1 \| subset > max_length)) {`
`374`	`374`	`cli_abort(`