tests/testthat/test-label_style.R

In ddsjoberg/gtsummary: Presentation-Ready Data Summary and Analytic Result Tables

skip_on_cran()
skip_if_not(is_pkg_installed("withr"))

test_that("label_style_*()", {
  expect_equal(
    withr::with_options(
      list("OutDec" = ","),
      c(
        label_style_number(digits = 1, prefix = "$", suffix = "*")(1000),
        label_style_sigfig(digits = 1, prefix = "$", suffix = "*")(1000),
        label_style_ratio(digits = 1, prefix = "$", suffix = "*")(1000),
        label_style_pvalue(digits = 2)(0.236),
        label_style_percent(digits = 2, prefix = "$", suffix = "*")(10)
      )
    ),
    c("$1 000,0*", "$1 000*", "$1 000*", "0,24", "$1 000,00*")
  )

  expect_equal(
    c(
      label_style_number(na = "NE", prefix = "$", suffix = "*")(NA),
      label_style_sigfig(na = "NE", prefix = "$", suffix = "*")(NA),
      label_style_ratio(na = "NE", prefix = "$", suffix = "*")(NA),
      label_style_pvalue(na = "NE", prefix = "$", suffix = "*")(NA),
      label_style_percent(na = "NE", prefix = "$", suffix = "*")(NA)
    ),
    c("NE", "NE", "NE", "NE", "NE")
  )
})