context("test for special-folds")
x <- 1 %..% 10
test_that("test", {
expect_true(lall(x, function(x) x <= 10))
expect_true(lany(x, function(x) x %% 7 == 0))
expect_true(land(lempty))
expect_false(lor(lempty))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.