Browse code

Sample labels are stored in their original form

Joshua D. Campbell authored on 03/10/2021 21:43:01
Showing 1 changed files

... ...
@@ -496,7 +496,7 @@ setMethod("recursiveSplitCell",
496 496
       verbose = verbose,
497 497
       logfile = logfile)
498 498
     modelInitial <- .celda_CG(counts,
499
-      sampleLabel = s,
499
+      sampleLabel = sampleLabel,
500 500
       K = as.integer(initialK),
501 501
       L = as.integer(L),
502 502
       zInitialize = "split",
... ...
@@ -1272,7 +1272,7 @@ setMethod("recursiveSplitModule",
1272 1272
       logfile = logfile
1273 1273
     )
1274 1274
     modelInitial <- .celda_CG(counts,
1275
-      sampleLabel = s,
1275
+      sampleLabel = sampleLabel,
1276 1276
       L = initialL,
1277 1277
       K = K,
1278 1278
       zInitialize = "predefined",
... ...
@@ -1640,6 +1640,7 @@ setMethod("recursiveSplitModule",
1640 1640
             perplexity = perplexity,
1641 1641
             logfile = logfile,
1642 1642
             verbose = verbose)
1643
+    SummarizedExperiment::colData(sce)$"celda_sample_label" <- sampleLabel
1643 1644
     return(sce)
1644 1645
 
1645 1646
 }
... ...
@@ -1687,5 +1688,6 @@ setMethod("recursiveSplitModule",
1687 1688
             perplexity = perplexity,
1688 1689
             logfile = logfile,
1689 1690
             verbose = verbose)
1691
+    SummarizedExperiment::colData(sce)$"celda_sample_label" <- sampleLabel
1690 1692
     return(sce)
1691 1693
 }