R/profileMethods.R

In jasenfinch/metaboReports: Automated Report Generation For Metabolomics Analyses

profileMethods <- function(processed) {
  
  technique <- processed@processingParameters@technique
  
  methods <- list(
    `LCMS-NP` = XCMSmethods,
    `LCMS-RP` = XCMSmethods,
    `GCMS-XCMS` = XCMSmethods
  )
  
  method <- methods[[technique]]
  
  return(method)
  
}