tests/testthat/test-sanitize-struct.R

In rtables: Reporting Tables

context("table structure validation")

test_that("table structure validation and sanitization work", {
  bad_dat <- DM
  bad_dat$RACE <- NA
  bad_lyt1 <- basic_table() %>%
    split_cols_by("ARM") %>%
    split_rows_by("RACE") %>%
    analyze("AGE")
  bad_tab1 <- build_table(bad_lyt1, bad_dat)

  expect_identical(
    validate_table_struct(bad_tab1),
    FALSE
  )

  expect_error(
    assert_valid_table(bad_tab1),
    "Likely Cause: Empty data"
  )

  san_tab1 <- sanitize_table_struct(bad_tab1)
  expect_identical(
    cell_values(san_tab1),
    list("-- This Section Contains No Data --")
  )
  expect_identical(
    col_info(san_tab1),
    col_info(bad_tab1)
  )

  bad_lyt2 <- basic_table() %>%
    split_cols_by("ARM") %>%
    split_rows_by("RACE") %>%
    split_rows_by("SEX") %>%
    summarize_row_groups()

  bad_tab2 <- build_table(bad_lyt2, DM)
  expect_error(
    assert_valid_table(bad_tab2),
    "Cause: Layout did not contain any analyze\\(\\) calls"
  )

  san_tab2 <- sanitize_table_struct(bad_tab2, "my awesome empty msg")
  expect_equal(
    nrow(san_tab2),
    nrow(bad_tab2) + length(levels(DM$RACE)) * length(levels(DM$SEX))
  )

  expect_equal(
    unname(tail(unlist(cell_values(san_tab2)), 1)),
    "my awesome empty msg"
  )
})