context('Testing leaf_apply')
test_that("leaf_apply works with zero-length list", {
# Try a zero-length list
foo <- leaf_apply(list(), function(x, name){}, class=c("foo"))
expect_that(foo, is_a("list"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.