R/diagnose.R

In sipss/AlpsLCMS: Signal processing of LC-MS metabolomics

#' Set/Get diagnostic information
#'
#' Set or get diagnostic information
#'
#' @param dataset A lcms_dataset
#' @return Diagnostic information, usually a list with data or plots
#' @export
#'
lcms_diagnose <- function(dataset) {
  attr(dataset, "diagnostic")
}


#' @rdname lcms_diagnose
#' @param value The diagnostic we want to set
#' @export
"lcms_diagnose<-" <- function(dataset, value) {
  attr(dataset, "diagnostic") <- value
  dataset
}