context("simple helpers")
test_that("utilities for checking lists",{
l = list(a = 5, b = 1:2)
expect_false(is_length_all_one(l))
l = list(a = 5, b = 1)
expect_true(is_length_all_one(l))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.