Use anyDuplicated() where possible

Author: Bisaloo

.lintr

@@ -1,6 +1,7 @@
 linters: linters_with_defaults(
     line_length_linter = line_length_linter(120L),
     any_is_na_linter(),
+    any_duplicated_linter(),
     outer_negation_linter(),
     nzchar_linter(),
     fixed_regex_linter(),

R/as_Seurat.R

@@ -211,7 +211,7 @@ as_Seurat <- function(
   } else if (!is.null(adata$X)) {
     layers_mapping[["X"]] <- NA
   }
-  if (any(duplicated(names(layers_mapping)))) {
+  if (anyDuplicated(names(layers_mapping)) > 0) {
     cli_abort(
       "{.arg layers_mapping} or {.arg x_mapping} must not contain any duplicate names",
       "i" = "Found duplicate names: {.val {names(layers_mapping)[duplicated(names(layers_mapping))]}}"

R/as_SingleCellExperiment.R

@@ -216,7 +216,7 @@ as_SingleCellExperiment <- function(
   } else if (!is.null(adata$X)) {
     assays_mapping[["X"]] <- NA
   }
-  if (any(duplicated(names(assays_mapping)))) {
+  if (anyDuplicated(names(assays_mapping)) > 0) {
     cli_abort(
       "{.arg assays_mapping} or {.arg x_mapping} must not contain any duplicate names",
       "i" = "Found duplicate names: {.val {names(assays_mapping)[duplicated(names(assays_mapping))]}}"