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/MQmetrics documentation built on Jan. 12, 2022, 3:02 p.m.