R/classes.r

In mariev/chromatoplotsgui: Interactive graphics and interface for chromatoplots

setClassUnion("CranvasPlotORNULL", c("CranvasPlot","NULL"))
setClassUnion("NumericORNULL", c("numeric", "NULL"))


#' @export
setClass('cgMetaProp', representation(tab = 'character'))


#' @title Meta element for chromatoplotsgui
#' 
#' @export
cgui.meta <- setRefClass("ChromPlotGUIProperties",
                         fields = properties(fields = list(dirloc = "character", 
                                                           
                                     ## params for loading a cpsample or xcmsraw object
                                     loadstep = "numeric",
                                     loadmethod = "character",
                                     loadparam = "list",
                                     includeMSn = "logical", 
                                     loaddata = "list",    
                                     loadplot = "list",
                                     ## end loadSample params
                                     
                                     ## params for genProfile
                                     step = "numeric",       
                                     baselevel = "NumericORNULL",
                                     basespace = "numeric", 
                                     integrate = "logical",                                                            
#                                      profMethod = "character",
                                     genprofdata = "list",
                                     genprofplot = "list",   
                                     ## end genProfile
                                     
                                     ## params for removeBaseline
                                     rmbaseMethod = "character",   
                                     mzrad = "numeric", 
                                     scanrad = "numeric",
                                     span = "numeric", 
                                     runs = "numeric", 
                                     b = "numeric",
                                     rmbasedata = "list",
                                     rmbaseplot = "list"         
                                     ## end removeBaseline
                                     ),
                                             
                       prototype = list(loadstep = 1,
                                        loadmethod = "bin",
                                        loadparam = list(),
                                        includeMSn = FALSE,
                                        
                                        step = 1,
                                        basespace = 0,
                                        integrate = FALSE,
                                        baselevel = NULL,
#                                         profMethod = "binlinbase",
                                        
                                        rmbaseMethod = "median",
                                        mzrad = 0,
                                        scanrad = 100,
                                        span = 0.15,
                                        runs = 3,
                                        b = 3)),
                         contains = "PropertySet")

## add initialize method
## specify functions to call when change signal emitted
cgui.meta$methods(
  initialize = function(...){
    callSuper(...)  
    .self$.rmbaseplotChanged$connect(mychangefunction)})


mychangefunction <- function(){
  print("baseplot changed")
}