tests/testthat/test-roundSafe.R

context("roundSafe")

test_that("roundSafe: skip rounding for characters",
{
  x <- c(1.765, "hello", 8.3985, "world")
  expect_equal(roundSafe(x, rep(2, 4)),
               c("1.76", "hello", "8.4", "world"))
})
  

Try the pixiedust package in your browser

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

pixiedust documentation built on Oct. 10, 2023, 9:07 a.m.