tests/testthat/test_function_createListOfSpectra.R

In tnaake/MsQualityUtils: What the package does (short line)

## create list if Spectra

## type == "MetIDQ"
path <- system.file("metidq", package = "MsQualityUtils")
suppressWarnings(
    sps_metidq <- createListOfSpectra(type = "MetIDQ", path = path, sheet = 1))
 
## type == "mzML"
path <- system.file("sciex", package = "msdata")
suppressWarnings(sps_mzml <- createListOfSpectra(type = "mzML", path = path))

## START unit test createListOfSpectra ## 
test_that("createListOfSpectra", {
    expect_equal(length(sps_metidq), 2)
    expect_equal(length(sps_mzml), 1)
    expect_true(is.list(sps_metidq))
    expect_true(is.list(sps_mzml))
    
    expect_equal(length(sps_metidq[[1]]), 22076)
    expect_equal(length(sps_metidq[[2]]), 16525)
    expect_equal(as.numeric(table(is.na(sps_metidq[[1]]$rtime))), c(16525, 5551))
    expect_equal(as.numeric(table(is.na(sps_metidq[[2]]$rtime))), 16525)
    expect_equal(length(unique(sps_metidq[[1]]$dataOrigin)), 504)
    expect_equal(length(unique(sps_metidq[[2]]$dataOrigin)), 504)
    expect_equal(length(sps_mzml[[1]]), 1862)
    expect_equal(as.numeric(table(is.na(sps_mzml[[1]]$rtime))), 1862)
    expect_equal(length(unique(sps_mzml[[1]]$dataOrigin)), 2)
})
## END unit test createListOfSpectra