library(SIRM.FTMS.peakPickingMethods) use_file <- "~/Projects/work/SIRM.FTMS.automatedAssignmentProcessExampleData/UK001N1exoposb.zip" tmp_mzml <- get_mzml_metadata(unzip(use_file, files = "UK001N1exoposb.mzML"))
tmp_mzml$run$startTimeStamp <- "2016-00-00 00:00:00"
tmp_loc <- tempdir() temp_out_file <- file.path(tmp_loc, "raw_metadata.json") cat(meta_export_json(tmp_mzml), file = temp_out_file) zip(zipfile = use_file, files = temp_out_file, flags = "-j")
