tests/testthat/test_ms_file_utils.R

test_that("extract_time_stamp works", {
    fl <- system.file("TripleTOF-SWATH", "PestMix1_SWATH.mzML",
                      package = "msdata")
    res <- extract_time_stamp(fl)
    expect_true(is(res, "POSIXt"))
})
EuracBiomedicalResearch/CompMetaboTools documentation built on Jan. 31, 2024, 1:14 p.m.