testthat::test_that('label_interval works as expected', {
breaks <- c(1, 2)
label <- label_interval(breaks, "(", " to ", "]")
testthat::expect_identical(label,
"(1 to 2]")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.