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)

})