tests/testthat/test-structure-summary.R

In rtables: Reporting Tables

context("Summarizing table structure")

test_that("path summaries", {
  lyt <- make_big_lyt()

  tbl <- build_table(lyt, rawdat)

  capture.output(cpathsum <- col_paths_summary(tbl))

  arm1tmp <- c("ARM", "ARM1")
  arm2tmp <- c("ARM", "ARM2")
  expect_identical(
    cpathsum,
    data.frame(
      label = c(
        "ARM1", "Male", "Female",
        "ARM2", "Male", "Female"
      ),
      path = I(list(
        arm1tmp,
        c(arm1tmp, c("SEX", "M")),
        c(arm1tmp, c("SEX", "F")),
        arm2tmp,
        c(arm2tmp, c("SEX", "M")),
        c(arm2tmp, c("SEX", "F"))
      )),
      stringsAsFactors = FALSE
    )
  )

  cpval <- col_paths(tbl)
  ## cpval doesn't contain the non-leaf paths
  expect_identical(cpval, cpathsum$path[-c(1, 4)])

  capture.output(rpathsum <- row_paths_summary(tbl))

  ## defined in setup-fakedata.R
  expect_identical(
    complx_lyt_rnames,
    rpathsum$label
  )

  expect_identical(
    row_paths(tbl),
    rpathsum$path
  )
})

test_that("vars_in_layout works", {
  lyt <- make_big_lyt()
  vars <- vars_in_layout(lyt)
  expect_identical(
    vars,
    c(
      "ARM", # split_cols_by
      "SEX", # split_cols_by
      "gend_label", # split_cols_by labels_var
      "RACE", # split_rows_by
      "ethn_label", # split_rows_by labels_var
      "FACTOR2", # split_rows_by
      "fac2_label", # split_rows_by labels_var
      "AGE", # analyze
      "VAR3"
    ) # analyze
  )

  expect_identical(
    vars_in_layout(ManualSplit(c("A", "B"), label = "stuff")),
    character()
  )
})