From 73cc8b41ead818ba3bd932acdab6554f8e627ec3 Mon Sep 17 00:00:00 2001 From: Stephanie Spielman Date: Thu, 7 Dec 2023 11:27:21 -0500 Subject: [PATCH] Apply suggestions from code review Co-authored-by: Joshua Shapiro --- R/merge_sce_list.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/merge_sce_list.R b/R/merge_sce_list.R index 289b9002..5e8f6c58 100644 --- a/R/merge_sce_list.R +++ b/R/merge_sce_list.R @@ -324,7 +324,7 @@ prepare_altexps_for_merge <- function( sce_altexp <- altExp(sce) # Determine which features are missing - missing_features <- altexp_features[!(altexp_features %in% rownames(sce_altexp))] + missing_features <- setdiff(altexp_features, rownames(sce_altexp)) n_missing <- length(missing_features) # Update altExp if any features are missing