tests/testthat/test-multiple-tables-in-rtf.R

In tidytlg: Create TLGs using the 'tidyverse'

library(tibble)

test_that("multiple tables are printed to one rtf file", {
  output_directory <- "test_outputs/multiple_tables_in_one_file"

  withr::with_options(list(tidytlg.add_datetime = FALSE), {
    mtcars2 <- mtcars %>%
      rownames_to_column(var = "USUBJID") %>%
      mutate(am = factor(am), cyl = factor(cyl), gear = factor(gear))

    tab <- freq(mtcars2, colvar = "cyl", rowvar = "am") %>% select(-c("row_type", "group_level"))

    tab2 <- freq(
      mtcars2 %>%
        tlgsetup(
          var = "cyl",
          column_metadata_file = testthat::test_path("test_data/column_metadata_mtcars.xlsx"),
          tbltype = "mtcars2"
        ),
      colvar = "colnbr",
      rowvar = "am"
    ) %>%
      bind_table(
        column_metadata_file = testthat::test_path("test_data/column_metadata_mtcars.xlsx"), tbltype = "mtcars2"
      ) %>%
      select("label", starts_with("col"))

    withr::with_dir(
      new = testthat::test_path(output_directory),
      code = {
        gentlg(
          list(tab, tab2),
          file = "multipletabs",
          title = list("Title 1", "Title 2"),
          footers = list("Footer 1", "Footer 2")
        )
      }
    )
  })

  expect_snapshot_file(test_path(sprintf("%s/multipletabs.rtf", output_directory)))

  # Verify only one file was created
  files <- list.files(path = testthat::test_path(output_directory), pattern = "*.rtf")
  testthat::expect_identical(
    length(files), 1L,
    label = sprintf("Expected to find only one file. Found: %s", paste0(files, collapse = " "))
  )
})