tests/testthat/test_gtoxLoadApid.R

context("Check assay plate table")

test_that("gtoxLoadApid:is a data.table", {
    tmp <- gtoxLoadApid()
    expect_true("data.table"%in%class(tmp))
})

test_that("gtoxLoadApid:contains a u_boxtrack:S-000049111", {
    tmp <- gtoxLoadApid()
    expect_true(any(tmp$u_boxtrack%in%"S-000049111"))
    })

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.