R/findBrukerTargetSpots.R

In chasemc/ghosts: Protein and small molecule analysis of bacteria by MALDI-TOF MS

#' findBrukerTargetSpots
#'
#' @param brukerDataPath brukerDataPath 
#'
#' @return list of acqus info
#' @export
#'
readBrukerAcqus <- function(brukerDataPath){
  
  files <- list.files(brukerDataPath,
                      pattern = "fid", 
                      recursive = TRUE,
                      full.names = TRUE)
  
  lapply(files, function(x){
    ghosts::readAcqusFile(x)
  })
}