test_that("organizeReads", {
data(rlist, package="trellis")
df.list <- organizeReads(rlist)
expect_is(df.list, "list")
expect_is(df.list[[1]], "data.frame")
nms <- sapply(df.list, function(x) x$rid[1])
expect_identical(nms, names(rlist))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.