R/fct_extractBrukerAcqInfo.R

In chasemc/IDBac_App: MALDI-TOF MS Protien and Small Molecule Analysis

#' Find a certain Bruker Acqus info
#'
#' @param acquisitonInformation parsed acqus
#' @param name acqus metadata name
#' @param type FUN.VALUE for vapply
#'
#' @return spot position vector
#' 
#'
extractBrukerAcquistionInfo <- function(acquisitonInformation,
                                        name,
                                        type){
  
  vapply(acquisitonInformation,
         function(x) x[[name, exact = TRUE]],
         FUN.VALUE = type)
  
}