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"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.