tests/testthat/test_gtoxLoadAid.R

test_that("gtoxLoadAid:contains an anm:Cytotoxicity (TIER1)_4h of aid:1", {
    tmp <- gtoxLoadAid()
    expect_equal(tmp[aid==3]$anm, "Cytotoxicity (TIER1)_4h")
})
philipmorrisintl/GladiaTOX documentation built on Aug. 27, 2023, 9:07 p.m.