context("flatten")
test_that("flatten works with standard lists.", {
nested_list <- list(1, 2:4, 5:6, 7)
result <- transduce(flatten(), as_sum, nested_list)
expect_that(result, is_equivalent_to(sum(1:7)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.