R/removebaseline.R

In mariev/chromatoplotsgui: Interactive graphics and interface for chromatoplots

# remove baseline
.remove1base <- function(x, .cguienv){
  if(.cguienv$cpdata$rmbaseMethod == "median"){
    return(removeBaseline(x, method = .cguienv$cpdata$rmbaseMethod, 
                          mzrad = .cguienv$cpdata$mzrad,
                          scanrad = .cguienv$cpdata$scanrad))
  } else {
    return(removeBaseline(x, method = .cguienv$cpdata$rmbaseMethod,
                          span = .cguienv$cpdata$span,
                          runs = .cguienv$cpdata$runs,
                          b = .cguienv$cpdata$b))
  }
}
.popremovebase <- function(.cguienv, fly){
  if(!fly){
    .cguienv$cpdata$rmbasedata <- lapply(.cguienv$cpdata$genprofdata, FUN = function(x){.remove1base(x, .cguienv)})
  } else {
    .cguienv$cpdata$rmbasedata <- list(.remove1base(.cguienv$cpdata$genprofdata[[1]], .cguienv))
  }
}