tests/testthat/test-pretty_round.R

test_that("pretty_round() returns expected results", {
  expect_equal(
    pretty_round(c(10, 110, 10050, 20500, 2000100, 3445123)),
    c("0", "100", "10,100", "20,500", "2m", "3.445m")
  )
})
djpr-data/djprlabourdash documentation built on April 28, 2023, 6:16 p.m.