R/mpactr-methods.R

In mpactr: Correction of Preprocessed MS Data

mpactr$set("public", "setup", function() {
  private$initialize_data()
})
mpactr$set("private", "initialize_data", function() {
  private$peak_table <- private$peak_table[which(rowSums(
    private$peak_table[, .SD, .SDcols = private$meta_data$Injection]
  ) > 0), ]
  private$set_kmd()
  private$peak_table$Compound <- as.character(private$peak_table$Compound)
})
mpactr$set("private", "set_kmd", function() {
  private$peak_table[, kmd := mz - floor(mz)]
})
mpactr$set("public", "get_peak_table", function() {
  return(private$peak_table)
})
mpactr$set("public", "set_peak_table", function(peak_table) {
  private$peak_table <- peak_table
})
mpactr$set("public", "get_meta_data", function() {
  return(private$meta_data)
})
mpactr$set("public", "get_raw_data", function() {
  return(private$raw_peak_table)
})