R/logicalFilterResult-accessors.R

In flowCore: flowCore: Basic structures for flow cytometry data

## ==========================================================================
## logicalFilterResults create a single population (and the complement of it)
## ==========================================================================






## ==========================================================================
## Subset a logicalFilterResult by filterId. We treat i=1 as the population
## in the filter and 1=2 as the complement of that. Values >2 are not allowed
## --------------------------------------------------------------------------
#' @export
setMethod("[[",
          signature=signature(x="logicalFilterResult"),
          definition=function(x, i, j, drop=FALSE)
      {
          if(drop)
              warning("Argument 'drop' is ignored", call.=FALSE)
          if(!missing(j))
              warning("Ignoring invalid dimension", call.=FALSE)
          if(is.numeric(i) || is.logical(i)) {
              copy <- names(x)[i]
          }else {
              copy <- i
              i <- match(i,names(x))
          }
          if(is.na(copy))
              stop("Subset out of bounds", call.=FALSE)
          if(i==1){
              x
          }else{
              tmp <- x
              tmp@subSet <- !x@subSet
              fd <- filterDetails(x)
              ld <- length(fd)
              id <- identifier(fd[[ld]]$filt)
              fd[[ld]]$filter <- !fd[[ld]]$filt
              fd[[ld]]$populations <- rev(fd[[ld]]$populations)
              filterDetails(tmp, id) <- fd
              tmp@filterId <- paste("not", tmp@filterId)
              tmp
          }   
      })