Nothing
context("ipairwise iterator")
test_that("ipairwise functions properly with an iterator", {
it <- iterators::iter(letters[1:4])
it_ipairwise <- ipairwise(it)
expect_equal(iterators::nextElem(it_ipairwise), list("a", "b"))
expect_equal(iterators::nextElem(it_ipairwise), list("b", "c"))
expect_equal(iterators::nextElem(it_ipairwise), list("c", "d"))
expect_error(iterators::nextElem(it_ipairwise), "StopIteration")
})
test_that("ipairwise functions properly with a vector", {
it_ipairwise <- ipairwise(letters[1:5])
expect_equal(iterators::nextElem(it_ipairwise), list("a", "b"))
expect_equal(iterators::nextElem(it_ipairwise), list("b", "c"))
expect_equal(iterators::nextElem(it_ipairwise), list("c", "d"))
expect_equal(iterators::nextElem(it_ipairwise), list("d", "e"))
expect_error(iterators::nextElem(it_ipairwise), "StopIteration")
})
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.