R/extractSpots.R

In CeMOS-Mannheim/MALDIcellassay: Automated MALDI Cell Assays Using Dose-Response Curve Fitting

#' Extract the spot coordinates
#'
#' @param spec list of MALDIquant::MassSpectrum or MALDIquant::MassPeaks objects
#'
#' @return
#' Character vector of spot names. If multiple spots are used (e.g. for average spectra) they will be concatenate.
#' @export
#' @examples
#' data(Blank2022spec)
#' head(extractSpots(Blank2022spec))
extractSpots <- function(spec) {
  if(!isMassSpectrumList(spec)) {
    if(!isMassPeaksList(spec)) {
      stop("spec needs to be either a list of MassSpectra or MassPeaks.\n")
    }
  }
  spot <- vapply(spec,
                 function(x) {
                   paste(metaData(x)$patch, collapse = " ")
                   }, FUN.VALUE = character(1))
  return(spot)
}