tests/testthat/test-label_roche.R

In crane: Supplements the 'gtsummary' Package for Pharmaceutical Reporting

test_that("style_roche_pvalue() works", {
  expect_equal(
    c(-1, 0, 0.0000000001, 0.5, 0.9, 1, 1.1) |>
      style_roche_pvalue(),
    c(NA, "<0.0001", "<0.0001", "0.5000", "0.9000", "1.0000", NA)
  )
})

test_that("style_roche_percent() works", {
  expect_equal(
    c(1, 0.0008, 0.9998, 0.998, 0.5, -1, 1.1, 0) |>
      style_roche_percent(suffix = "%"),
    c("100%", "<0.1%", ">99.9%", "99.8%", "50.0%", NA, NA, "0.0%")
  )

  expect_equal(
    c(1, 0.0008, 0.9998, 0.998, 0.5, -1, 1.1, 0) |>
      style_roche_percent(suffix = "%", digits = 2),
    c("100.0%", "<0.10%", ">99.90%", "99.80%", "50.00%", NA, NA, "0.00%")
  )

  expect_equal(
    c(1, 0.0008, 0.9998, 0.998, 0.5, -1, 1.1, 0) |>
      style_roche_percent(suffix = "%", digits = 4),
    c("100.000%", "<0.1000%", ">99.9000%", "99.8000%", "50.0000%", NA, NA, "0.0000%")
  )
})

test_that("style_roche_ratio() works", {
  x <- c(0.0008, 0.8234, 2.123, 1000)

  expect_equal(
    style_roche_ratio(x),
    c("<0.01", "0.82", "2.12", ">999.99")
  )

  expect_equal(
    label_roche_ratio()(x),
    c("<0.01", "0.82", "2.12", ">999.99")
  )
})