tests/testthat/test-freq_sparse.R

In tidytlg: Create TLGs using the 'tidyverse'

test_that("sparse data is handled correctly", {
  mtcars2 <- mtcars %>%
    rownames_to_column(var = "USUBJID") %>%
    mutate(across(.cols = everything(), .fns = as.factor)) %>%
    filter(FALSE)

  expected <- tibble::tribble(
    ~label,
    ~X4,
    ~X6,
    ~X8,
    ~row_type,
    ~group_level,
    "3",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "4",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "5",
    "-",
    "-",
    "-",
    "VALUE",
    0
  )

  expect_equal(
    freq(mtcars2, colvar = "cyl", rowvar = "gear", statlist = statlist("n (x.x%)")), expected,
    ignore_attr = TRUE
  )

  expected <- tibble::tribble(
    ~label,
    ~X4,
    ~X6,
    ~X8,
    ~row_type,
    ~group_level,
    "3",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "4",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "5",
    "-",
    "-",
    "-",
    "VALUE",
    0
  )

  expect_equal(
    freq(mtcars2, colvar = "cyl", rowvar = "gear", statlist = statlist(c("n"))), expected,
    ignore_attr = TRUE
  )

  expected <- tibble::tribble(
    ~label,
    ~X4,
    ~X6,
    ~X8,
    ~row_type,
    ~group_level,
    ~am,
    "0",
    "",
    "",
    "",
    "BY_HEADER1",
    0,
    "0",
    "3",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "0",
    "4",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "0",
    "5",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "0",
    "1",
    "",
    "",
    "",
    "BY_HEADER1",
    0,
    "1",
    "3",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "1",
    "4",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "1",
    "5",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "1"
  )
  expected$am <- factor(expected$am)

  expect_equal(
    freq(mtcars2, colvar = "cyl", rowvar = "gear", rowbyvar = "am", statlist = statlist(c("n"))),
    expected,
    ignore_attr = TRUE
  )

  expected <- tibble::tribble(
    ~label,
    ~X4,
    ~X6,
    ~X8,
    ~row_type,
    ~group_level,
    ~am,
    "3",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "0",
    "4",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "0",
    "5",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "0",
    "3",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "1",
    "4",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "1",
    "5",
    "-",
    "-",
    "-",
    "VALUE",
    0,
    "1"
  )
  expected$am <- factor(expected$am)

  expect_equal(
    freq(mtcars2, colvar = "cyl", rowvar = "gear", tablebyvar = "am", statlist = statlist(c("n"))),
    expected,
    ignore_attr = TRUE
  )
})