Nothing
x <- 1:3 %>% set_names()
test_that("imap is special case of map2", {
expect_identical(imap(x, paste), map2(x, names(x), paste))
})
test_that("imap always returns a list", {
expect_bare(imap(x, paste), "list")
})
test_that("atomic vector imap works", {
expect_true(all(imap_lgl(x, `==`)))
expect_length(imap_chr(x, paste), 3)
expect_equal(imap_int(x, ~ .x + as.integer(.y)), x * 2)
expect_equal(imap_dbl(x, ~ .x + as.numeric(.y)), x * 2)
})
test_that("iwalk returns invisibly", {
expect_output(iwalk(mtcars, ~ cat(.y, ": ", median(.x), "\n", sep = "")))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.