tests/testthat/test-function-percentage.R

test_that("percentage() works", {
  
  x <- 1:10
  
  expect_identical(percentage(x, 5), x / 5 * 100)
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.