From a9757508a0b97096e5b8d81ae507376a5cb375b8 Mon Sep 17 00:00:00 2001
From: Greg Finak <greg.finak@gmail.com>
Date: Mon, 22 Jul 2019 15:15:16 -0700
Subject: [PATCH] Update spillover.R

related to #28
---
 R/spillover.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/R/spillover.R b/R/spillover.R
index ec5743d..7c70005 100644
--- 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)