library(yspec)
context("test-ycol")
test_that("ycol [YSP-TEST-0122]", {
sp <- load_spec_ex(("DEM104101F_PK.yml"))
txt <- capture.output(sp$WT)
expect_true(grepl("WT", txt[2]))
expect_true(grepl("numeric", txt[3]))
txt <- capture.output(sp$SEX)
expect_true(grepl("SEX", txt[2]))
expect_is(as.list(sp$WT), "list")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.