convert_text_to_mzml.R

converter <- function(inputDirectory,
                      ouputDirectory) {
  
  a <- list.files(inputDirectory,
                  full.names = T)
  
  b <- MALDIquantForeign::import(a,
                                 centroided = FALSE)
  
  
  nams <- paste0(tools::file_path_sans_ext(basename(a)), ".mzML")
  
  for (i in seq_along(nams)) {
  MALDIquantForeign::exportMzMl(b[[i]],
                                file.path(ouputDirectory,
                                          nams[[i]]))
  }
}