Skip to content
Open
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions R/gating-methods.R
Original file line number Diff line number Diff line change
Expand Up @@ -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")){
Comment thread
djhammill marked this conversation as resolved.
Outdated
pops <- gtPop@name
pops <- gsub("([\\+-])([^/$])", "\\1&\\2", pops)
pops <- strsplit(pops, "&")[[1]]
Expand Down