tests/testthat/test-page_numbers.R

In tidytlg: Create TLGs using the 'tidyverse'

library(tibble)

test_that("Page numbers are added on each page", {
  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 <- tab

    withr::with_dir(
      new = test_path("test_outputs"),
      code = {
        gentlg(list(tab, tab2), file = "pagenumbers", tlf = "Listing", pagenum = TRUE)
      }
    )
  })
  expect_snapshot_file(test_path("test_outputs/pagenumbers.rtf"))
})

test_that("The page number mentions the table", {
  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 <- tab

    withr::with_dir(
      new = test_path("test_outputs"),
      code = {
        gentlg(list(tab, tab2), file = "pagenumberstable", pagenum = TRUE)
      }
    )
  })
  expect_snapshot_file(test_path("test_outputs/pagenumberstable.rtf"))
})