tests/testthat/test_label_interval.R

testthat::test_that('label_interval works as expected', {

  breaks <- c(1, 2)

  label <- label_interval(breaks, "(", " to ", "]")

  testthat::expect_identical(label,
                             "(1 to 2]")

})
hamishgibbs/ggutils documentation built on Feb. 24, 2023, 1:22 a.m.