tests/testthat/tests_levi.R

### Tests
test_that("ok!", {
    base <- readExpColumn(a="Test-Control")
    expect_is(base, "list")
})

test_that("ok!", {
    expect_output(LEVIui(), "Parameter must be TRUE or FALSE")
})

Try the levi package in your browser

Any scripts or data that you put into this service are public.

levi documentation built on Nov. 8, 2020, 8:21 p.m.