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)
})