bug fix: ensure ExperimentList order is the same when comparing colum…

…n names
waldronlab · Aug 11, 2023 · bc96603 · bc96603
1 parent 62b3478
commit bc96603
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/MultiAssayExperiment-class.R b/R/MultiAssayExperiment-class.R
@@ -380,9 +380,9 @@ MultiAssayExperiment <-
     colNams <- Filter(function(x) !isEmpty(x), colnames(object))
     msg <- NULL
     if (length(colNams)) {
-        logicResult <- mapply(function(x, y, nm) {
+        logicResult <- mapply(function(x, y) {
             identical(sort(x), sort(y))
-        }, x = colNams, y = assayCols, nm = names(colNams))
+        }, x = colNams, y = assayCols[names(colNams)])
         if (!all(logicResult))
             msg <- "not all ExperimentList samples are found in the sampleMap"
     }