use map_lgl

AlexsLemonade · May 1, 2024 · bb515c6 · bb515c6
1 parent 57630da
commit bb515c6
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/bin/merge_sces.R b/bin/merge_sces.R
@@ -247,8 +247,7 @@ adt_present_columns <- sce_list |>
 
 # ensure that there are indeed no "adt" altExps if adt_present_columns is empty
 adt_altexps <- sce_list |>
- purrr::map(\(sce) "adt" %in% altExpNames(sce)) |>
- unlist()
+ purrr::map_lgl(\(sce) "adt" %in% altExpNames(sce))
 if (is.null(adt_present_columns) && sum(adt_altexps) > 0) {
  stop("Error in determining which adt altExp columns should be retained.")
 }