tests/testthat/test-relabel_proportions.R

In R4EPI/msfmisc: Miscellaneous helper tools for epidemiologists

df <- data.frame(
  x = letters[1:10],
  `a n` = 1:10,
  `a prop` = (1:10) / 10,
  `a deff` = round(pi, 2),
  `b n` = 10:1,
  `b prop` = (10:1) / 10,
  `b deff` = round(pi * 2, 2),
  check.names = FALSE
)

test_that("rename redundant works as advertized", {
  expect_named(rename_redundant(df, "%" = prop), c("x", "a n", "%", "a deff", "b n", "%", "b deff"))
})

test_that("augment redundant works as advertized", {
  expect_named(augment_redundant(df, " (n)" = " n", "(%)" = prop), c("x", "a (n)", "a (%)", "a deff", "b (n)", "b (%)", "b deff"))
})

test_that("dots_to_charlist() only works from within", {
  skip_on_cran()
  # This one is a bit of a kludge since we are forcing it to climb all the way up to the user interface, but it gets the jeorb done
  expect_error(dots_to_charlist(sys.parent()), "dots_to_charlist() can only be called within a user-facing function", fixed = TRUE)
})