diff --git a/R/gating-methods.R b/R/gating-methods.R index a6f3a4d..c9eeaf3 100644 --- a/R/gating-methods.R +++ b/R/gating-methods.R @@ -381,8 +381,8 @@ roxygen_parameter <- function() { } } - # For gate_quad methods, need to filter down to just the gates that were asked for - if(names(x) %in% c("quadGate.seq", "gate_quad_sequential", "quadGate.tmix", "gate_quad_tmix")){ + # For gate_quad methods, need to filter down to just the gates that were asked for if pop != "*" + if(!all(popName %in% "*") && names(x) %in% c("quadGate.seq", "gate_quad_sequential", "quadGate.tmix", "gate_quad_tmix")){ pops <- gtPop@name pops <- gsub("([\\+-])([^/$])", "\\1&\\2", pops) pops <- strsplit(pops, "&")[[1]]