#28 catch an exception with the borderquant argument in rectangleGate…

… for pregating compensation controls.
RGLab · Jul 22, 2019 · 3be19c1 · 3be19c1
1 parent 0e92c59
commit 3be19c1
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/R/spillover.R b/R/spillover.R
@@ -470,9 +470,14 @@ setMethod("spillover_ng",
                 channel_name <- cols[which(channel_order == channel_i)]
 
                 # Applies rangeGate to select positive population
-                gate_filter <- rangeGate(flow_frame, stain = channel_name,
+                gate_filter <- try(rangeGate(flow_frame, stain = channel_name,
                                          inBetween = TRUE, borderQuant = 0,
-                                         absolute = FALSE, peakNr = 2)
+                                         absolute = FALSE, peakNr = 2), silent = TRUE)
+                if(inherits(gate_filter,"try-error")){
+                  gate_filter <- try(rangeGate(flow_frame, stain = channel_name,
+                                               inBetween = TRUE, borderQuant = 1,
+                                               absolute = FALSE, peakNr = 2), silent = TRUE)
+                }
                 if (plot) {
                   # Plots a kernel density for the current channel
                   plot(density(exprs(flow_frame)[, channel_name]),