context("map")
test_that("map assigns names", {
x <- map(list(a = 1), I)
expect_named(x, 'a')
x <- map('a', I)
expect_named(x, 'a')
})
test_that("imap passes names and values", {
imap(list(a = 1), function (...) {
args <- list(...)
expect_length(args, 2)
expect_equal(nth(args, 1), 1)
expect_equal(nth(args, 2), 'a')
})
})
test_that("imap handles edge cases", {
expect_length(imap(NULL, print), 0)
})
test_that("not negates", {
f <- not(is.null)
expect_false(f(NULL))
expect_true(f(1))
f <- not(function(x)identical(x, 1L))
expect_false(f(1L))
expect_true(f(2L))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.