tests/testthat/test-ReportTables.R

test_that("returns a list of 6 tables", {
    MQCombined <- make_MQCombined(MQPathCombined = system.file("extdata/combined/",
                                              package = "MQmetrics"))
    tables <- ReportTables(MQCombined)

    expect_equal(length(tables), 6)
})
BioAlvaro/MQviewer documentation built on Jan. 11, 2022, 8:25 p.m.