From f50762459d97ac8c47b2441ba6130eb78ec841a0 Mon Sep 17 00:00:00 2001 From: LiNk-NY Date: Tue, 8 Aug 2023 17:44:28 -0400 Subject: [PATCH] use named subsetting instead of sorting --- R/MultiAssayExperiment-class.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/MultiAssayExperiment-class.R b/R/MultiAssayExperiment-class.R index 23472b9..c10bfb1 100644 --- 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) { - identical(sort(x), sort(y)) - }, x = colNams, y = assayCols) + logicResult <- mapply(function(x, y, nm) { + identical(x[nm], y[nm]) + }, x = colNams, y = assayCols, nm = names(colNams)) if (!all(logicResult)) msg <- "not all ExperimentList samples are found in the sampleMap" }