use replacement method when splitting assays to regen sampmap

waldronlab · Aug 11, 2023 · befac2c · befac2c
1 parent 699a945
commit befac2c
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/R/MultiAssayExperiment-helpers.R b/R/MultiAssayExperiment-helpers.R
@@ -826,10 +826,8 @@ setMethod("splitAssays", "MultiAssayExperiment",
         names(sublist) <- gsub("\\.", "_", names(sublist))
         names(x) <- names(sublist)
 
-        BiocBaseUtils::setSlots(
-            object = x,
-            ExperimentList = ExperimentList(sublist)
-        )
+        experiments(x) <- ExperimentList(sublist)
+        x
     }
 )