tests/testthat/test_gtoxLoadAsid.R

test_that("gtoxLoadAsid:return a data.table with a registered study", {
    tmp <- gtoxLoadAsid()
    expect_equal(class(tmp), c('data.table','data.frame'))
    expect_equal(nrow(tmp), 1)
    expect_equal(tmp$asnm, "SampleStudy")
})

Try the GladiaTOX package in your browser

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

GladiaTOX documentation built on Nov. 15, 2020, 2:07 a.m.