tests/testthat/test-freq_cutoff.R

In tidytlg: Create TLGs using the 'tidyverse'

library(tibble)
library(haven)

test_that("cutoff and cutoff_stat work as expected", {
  mtcars2 <- mtcars %>%
    rownames_to_column(var = "USUBJID") %>%
    mutate(am = factor(am), cyl = factor(cyl), gear = factor(gear))

  mtcars3 <- freq(mtcars2, colvar = "am", rowvar = "cyl", cutoff = 25, statlist = statlist("n (x.x%)"))

  expect_equal(mtcars3[["0"]], c("3 (15.8%)", "12 (63.2%)"), ignore_attr = TRUE)
  expect_equal(mtcars3[["1"]], c("8 (61.5%)", "2 (15.4%)"), ignore_attr = TRUE)

  mtcars4 <- freq(mtcars2, colvar = "am", rowvar = "cyl", cutoff = "0 >= 25", statlist = statlist("n (x.x%)"))
  expect_equal(mtcars4[["0"]], "12 (63.2%)", ignore_attr = TRUE)

  mtcars5 <- freq(
    mtcars2,
    colvar = "am", rowvar = "cyl", cutoff_stat = "n", cutoff = "0 >= 10", statlist = statlist("n (x.x%)")
  )
  expect_equal(mtcars5[["0"]], "12 (63.2%)", ignore_attr = TRUE)
})