tests/testthat/test-get_data.R

test_that("get_data works", {
    
    tmp <- get_data(fname = "Kunkle2019.tsv.gz")
    dat <- data.table::fread(tmp)
    testthat::expect_equal(dim(dat),c(1157,10))
})
RajLabMSSM/echodata documentation built on Nov. 21, 2023, 8 a.m.