R/methods.Filter.R

In xps: Processing and Analysis of Affymetrix Oligonucleotide Arrays including Exon Arrays, Whole Genome Arrays and Plate Arrays

#==============================================================================#
# methods.Filter.R: initialization, accessors, methods
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# initialize:
# setValidity:
# filters:
# filters<-:
#==============================================================================#


#------------------------------------------------------------------------------#
# Filter initialization:
#------------------------------------------------------------------------------#

setMethod("initialize", "Filter", 
   function(.Object, ...) {
      if (debug.xps()) print("------initialize:Filter------")

      .Object <- callNextMethod(.Object, ...);
      .Object;
   }
)#initialize

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

setValidity("Filter",
   function(object) {
      if (debug.xps()) print("------setValidity:Filter------")
      msg <- NULL;

      if (is.null(msg)) TRUE else msg;
   }
)#setValidity


#------------------------------------------------------------------------------#
# Filter accessors:
#------------------------------------------------------------------------------#

setMethod("numberFilters", signature(object="Filter"),
   function(object) object@numfilters
)#numberFilters

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -