tests/testthat/test-metadata.R

In tidytlg: Create TLGs using the 'tidyverse'

library(tibble)


test_that("the metadata table method works as expected", {
  expected <- tibble::tribble(
    ~label, ~col1, ~col2, ~col3, ~col4, ~row_type, ~func, ~anbr, ~subset, ~STUDYID, ~indentme, ~roworder, ~newrows, ~newpage,
    "Y", "5 (100.0)", "5 (100.0)", "5 (100.0)", "15 (100.0)", "VALUE", "freq", 1, NA, NA, 1, 1L, 0, 0,
    "N", "5", "5", "5", "15", "N", "univar", 2, "TRT01P != ''", NA, 1, 1L, 1, 0,
    "Mean (SD)", "69.60 (14.398)", "75.60 (6.731)", "72.20 (9.230)", "72.47 (10.148)", "VALUE", "univar", 2, "TRT01P != ''", NA, 2, 2L, 0, 0,
    "Median", "64.00", "74.00", "75.00", "74.00", "VALUE", "univar", 2, "TRT01P != ''", NA, 2, 3L, 0, 0,
    "Range", "(52.0; 85.0)", "(68.0; 84.0)", "(57.0; 81.0)", "(52.0; 85.0)", "VALUE", "univar", 2, "TRT01P != ''", NA, 2, 4L, 0, 0,
    "IQ range", "(63.00; 84.00)", "(71.00; 81.00)", "(71.00; 77.00)", "(64.00; 81.00)", "VALUE", "univar", 2, "TRT01P != ''", NA, 2, 5L, 0, 0,
    "CDISCPILOT01", "5 (100.0)", "5 (100.0)", "5 (100.0)", "15 (100.0)", "NESTED", "nested_freq", 3, NA, "CDISCPILOT01", 0, 1L, 1, 0,
    "F", "2 (40.0)", "1 (20.0)", "3 (60.0)", "6 (40.0)", "NESTED", "nested_freq", 3, NA, "CDISCPILOT01", 1, 2L, 0, 0,
    "M", "3 (60.0)", "4 (80.0)", "2 (40.0)", "9 (60.0)", "NESTED", "nested_freq", 3, NA, "CDISCPILOT01", 1, 3L, 0, 0
  )
  expected$STUDYID <- factor(expected$STUDYID)

  tables <- tibble(
    func = c("freq", "univar", "nested_freq"),
    colvar = "TRT01P",
    rowvar = c("SAFFL", "AGE", "STUDYID*SEX"),
    df = "cdisc_adsl",
    anbr = c(1, 2, 3),
    subset = "TRT01P != ''"
  )

  tab <- generate_results(
    tibble(
      func = c("freq", "univar", "nested_freq"),
      colvar = "TRT01PN",
      rowvar = c("SAFFL", "AGE", "STUDYID*SEX"),
      df = "cdisc_adsl",
      anbr = c(1, 2, 3),
      subset = "TRT01P != ''"
    ),
    column_metadata_file = tidytlg_metadata(test_path("test_data")),
    tbltype = "type1"
  )

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