tests/testthat/test-colheader.R

In tidytlg: Create TLGs using the 'tidyverse'

library(tibble)

test_that("colheader works as expected for listings", {
  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)) %>%
      select("USUBJID", "mpg", "cyl", "disp", "hp")

    withr::with_dir(test_path("test_outputs"), {
      gentlg(mtcars2, file = "colheader1", tlf = "l")
    })

    mtcars3 <- mtcars2
    attr(mtcars3$mpg, "label") <- "Miles/(US) gallon"
    attr(mtcars3$cyl, "label") <- "Number of cylinders"
    attr(mtcars3$disp, "label") <- "Displacement (cu.in.)"
    attr(mtcars3$hp, "label") <- "Gross horsepower"

    withr::with_dir(test_path("test_outputs"), {
      gentlg(mtcars3, file = "colheader2", tlf = "l")
    })
  })

  expect_snapshot_file(test_path("test_outputs/colheader1.rtf"))
  expect_snapshot_file(test_path("test_outputs/colheader2.rtf"))
})