Update spillover.R

related to #28
RGLab · Jul 22, 2019 · a975750 · a975750
1 parent 9d83801
commit a975750
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/spillover.R b/R/spillover.R
@@ -450,8 +450,9 @@ setMethod("spillover_ng",
             cols <- cols[!(cols %in% c(fsc, ssc))]
             unstained <- match("unstained", sampleNames(matched))
 
-            channel_order <- sapply(cols, grep, x = sampleNames(matched), fixed = TRUE)
-
+            #channel_order <- sapply(cols, grep, x = sampleNames(matched), fixed = TRUE)
+            sapply(cols, function(x)which(x==sampleNames(matched)))
+
             if (pregate) {
               if (plot) {
                 oask <- devAskNewPage(TRUE)