tests/testthat/freq_rowtext_row_header.R

In tidytlg: Create TLGs using the 'tidyverse'

library(tibble)
library(haven)

test_that("rowtext will relabel the row if unnamed and only one row is passed", {
  mtcars2 <- mtcars %>% rownames_to_column(var = "USUBJID")

  mtcars3 <- freq(
    mtcars2,
    colvar = "am",
    rowvar = "cyl",
    statlist = statlist("n (x.x%)"),
    subset = cyl == 4,
    rowtext = "Cars with 4 cylinders"
  )

  expected_df <- tribble(
    ~label, ~`0`, ~`1`, ~row_type, ~group_level, "Cars with 4 cylinders", "3 (15.8%)", "8 (61.5%)", "HEADER", 0
  ) %>%
    structure(class = c("freqs", class(.)))

  expect_equal(mtcars3, expected_df, ignore_attr = TRUE)

  expected <- tibble::tribble(~label, ~X0, ~X1, ~row_type, ~group_level, "Cars with 0 cylinders", "0", "0", "HEADER", 0)

  expect_equal(
    freq(
      mtcars2,
      colvar = "am",
      rowvar = "cyl",
      statlist = statlist("n (x.x%)", distinct = TRUE),
      subset = cyl == 0,
      rowtext = "Cars with 0 cylinders"
    ),
    expected,
    ignore_attr = TRUE
  )

  expected <- tibble::tribble(
    ~label,
    ~X0,
    ~X1,
    ~row_type,
    ~group_level,
    "Cars with 6 cylinders",
    "4 (21.1%)",
    "3 (23.1%)",
    "VALUE",
    0,
    "Cars with 8 cylinders",
    "12 (63.2%)",
    "2 (15.4%)",
    "VALUE",
    0
  )

  expect_equal(
    freq(
      mtcars2,
      colvar = "am",
      rowvar = "cyl",
      statlist = statlist("n (x.x%)", distinct = TRUE),
      subset = cyl > 4,
      rowtext = c("Cars with 6 cylinders" = "6", "Cars with 8 cylinders" = "8")
    ),
    expected,
    ignore_attr = TRUE
  )
})

test_that("row_header will add a header row", {
  mtcars2 <- mtcars %>%
    rownames_to_column(var = "USUBJID") %>%
    mutate(am = factor(am), cyl = factor(cyl), gear = factor(gear))

  mtcars3 <- freq(
    mtcars2,
    colvar = "am", rowvar = "cyl", statlist = statlist(c("N", "n (x.x%)")), row_header = "Cars cylinders"
  )

  expected_df <- tribble(
    ~label,
    ~`0`,
    ~`1`,
    ~row_type,
    ~group_level,
    "Cars cylinders",
    "",
    "",
    "HEADER",
    0,
    "N",
    "19",
    "13",
    "N",
    0,
    "4",
    "3 (15.8%)",
    "8 (61.5%)",
    "VALUE",
    0,
    "6",
    "4 (21.1%)",
    "3 (23.1%)",
    "VALUE",
    0,
    "8",
    "12 (63.2%)",
    "2 (15.4%)",
    "VALUE",
    0
  ) %>%
    structure(class = c("freqs", class(.)))

  expect_equal(mtcars3, expected_df, ignore_attr = TRUE)

  mtcars4 <- freq(
    mtcars2,
    colvar = "am", rowvar = "cyl", statlist = statlist("n (x.x%)"), row_header = "Cars cylinders"
  )

  expected_df <- tribble(
    ~label,
    ~`0`,
    ~`1`,
    ~row_type,
    ~group_level,
    "Cars cylinders",
    "",
    "",
    "HEADER",
    0,
    "4",
    "3 (15.8%)",
    "8 (61.5%)",
    "VALUE",
    0,
    "6",
    "4 (21.1%)",
    "3 (23.1%)",
    "VALUE",
    0,
    "8",
    "12 (63.2%)",
    "2 (15.4%)",
    "VALUE",
    0
  ) %>%
    structure(class = c("freqs", class(.)))

  expect_equal(mtcars4, expected_df, ignore_attr = TRUE)
})