test_that("works as expected", {
expect_equal( namesx(iris,'length'), c('Sepal.Length','Petal.Length') )
expect_equal( length( namesx(iris,'length', ignore.case=F) ), 0 )
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.