context("mzMl") test_that(".writeImzMlScanList", { m <- createMassSpectrum(mass=1:5, intensity=6:10, metaData=list(imaging=list(pos=c(x=1e8, y=1e8)))) f <- file.path(tempdir(), "imzlscanlist") r <- c( " <scanList count=\"1\">", " <scan>", " <cvParam cvRef=\"IMS\" accession=\"IMS:1000050\" name=\"position x\" value=\"100000000\"/>", " <cvParam cvRef=\"IMS\" accession=\"IMS:1000051\" name=\"position y\" value=\"100000000\"/>", " </scan>", " </scanList>" ) MALDIquantForeign:::.writeImzMlScanList(m, file=f) expect_equal(readLines(f), r) })
Generated by dwww version 1.15 on Fri Jun 21 07:30:49 CEST 2024.