Nothing
context("ilength of an iterator")
test_that("ilength functions properly with a vector", {
expect_equal(ilength(1:5), 5)
})
test_that("ilength functions properly with an iterator", {
it <- iterators::iter(1:5)
expect_equal(ilength(it), 5)
})
test_that("ilength functions properly with a chained iterator", {
it <- ichain(1:3, 4:5, 6)
expect_equal(ilength(it), 6)
})
test_that("ilength functions properly with a chained iterator of mixed types", {
it <- ichain(1:3, levels(iris$Species))
expect_equal(ilength(it), 6)
})
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.