library("testthat") library("mapi") test_that("mapi", { expect_equal(nrow(mapi::samples), 200) expect_equal(nrow(mapi::metric), 19900) })