tests/testthat/test-utilities.R

test_that("round_half_up works", {
  expect_equal(round_half_up(-0.5, 0), -1)
  expect_equal(round_half_up(0.5, 0), 1)
  expect_equal(round_half_up(1.125, 2), 1.13)
  expect_equal(round_half_up(1.135, 2), 1.14)
  expect_equal(round_half_up(2436.845, 2), 2436.85)
})

Try the janitor package in your browser

Any scripts or data that you put into this service are public.

janitor documentation built on Feb. 16, 2023, 10:16 p.m.