test_that("startsToEnds() works", {
starts <- c(1, 10, 20, 35)
expect_identical(startsToEnds(starts, lastStop = 50), c(9, 19, 34, 50))
expect_identical(
startsToEnds(starts, lastStop = 50, stopOffset = 2),
c(8, 18, 33, 50)
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.