context("meta data frame")
data(sysdata, envir=environment())
test_that("length output list", {
metaf <- meta.dataframe(iris, sysdata$metafeatures_names)
expect_equal(length(metaf), length(sysdata$metafeatures_names))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.