tests/testthat/test-freq_pad.R

In tidytlg: Create TLGs using the 'tidyverse'

library(tibble)

test_that("pad argument works as expected", {
  mtcars2 <- mtcars %>%
    rownames_to_column(var = "USUBJID") %>%
    mutate(cyl = as.factor(cyl))

  mtcars2 <- mtcars2 %>%
    filter(cyl != 8)

  t1 <- freq(
    mtcars2,
    colvar = "gear",
    rowvar = "cyl"
  )
  t2 <- freq(
    mtcars2,
    colvar = "gear",
    rowvar = "cyl",
    pad = FALSE
  )
  t3 <- freq(
    mtcars2,
    colvar = "gear",
    rowvar = "cyl",
    rowbyvar = "am",
    pad = FALSE
  )

  expected <- tibble::tribble(
    ~label, ~X3, ~X4, ~X5, ~row_type, ~group_level,
    "4", "1 (33.3)", "8 (66.7)", "2 (66.7)", "VALUE", 0,
    "6", "2 (66.7)", "4 (33.3)", "1 (33.3)", "VALUE", 0,
    "8", "0", "0", "0", "VALUE", 0
  )

  expect_equal(t1,
    expected,
    ignore_attr = TRUE
  )

  expected <- tibble::tribble(
    ~label, ~X3, ~X4, ~X5, ~row_type, ~group_level,
    "4", "1 (33.3)", "8 (66.7)", "2 (66.7)", "VALUE", 0,
    "6", "2 (66.7)", "4 (33.3)", "1 (33.3)", "VALUE", 0
  )


  expect_equal(t2,
    expected,
    ignore_attr = TRUE
  )


  expected <- tibble::tribble(
    ~label, ~X3, ~X4, ~X5, ~row_type, ~group_level, ~am,
    "0", "", "", "", "BY_HEADER1", 0, "0",
    "4", "1 (33.3)", "2 (50.0)", "-", "VALUE", 0, "0",
    "6", "2 (66.7)", "2 (50.0)", "-", "VALUE", 0, "0",
    "1", "", "", "", "BY_HEADER1", 0, "1",
    "4", "-", "6 (75.0)", "2 (66.7)", "VALUE", 0, "1",
    "6", "-", "2 (25.0)", "1 (33.3)", "VALUE", 0, "1"
  )

  expected$am <- factor(expected$am)

  expect_equal(t3,
    expected,
    ignore_attr = TRUE
  )
})