tests/testthat/test-tlgsetup.R

In tidytlg: Create TLGs using the 'tidyverse'

test_that("tlgsetup will factorize the colnbr", {
  mtcars2 <- mtcars %>%
    filter(cyl != 8)

  mtcars3 <- mtcars2 %>%
    tlgsetup(
      var = "cyl",
      column_metadata_file = test_path("test_data/column_metadata_mtcars.xlsx"),
      tbltype = "mtcars2"
    ) %>%
    freq(
      colvar = "colnbr",
      rowvar = "gear",
      statlist = statlist("n", distinct = FALSE),
      .keep = FALSE
    )

  expected <- tibble::tribble(
    ~label, ~col1, ~col2, ~col3, ~col4, ~col5, ~row_type, ~group_level,
    "3", "1", "2", "-", "2", "3", "VALUE", 0,
    "4", "8", "4", "-", "4", "12", "VALUE", 0,
    "5", "2", "1", "-", "1", "3", "VALUE", 0
  )

  expect_equal(mtcars3, expected, ignore_attr = TRUE)


  withr::with_options(
    list(tidytlg.add_datetime = FALSE),
    {
      withr::with_dir(
        new = test_path("test_outputs"),
        code = {
          gentlg(
            mtcars3,
            colheader = c("label", "col1", "col2", "col3", "col4", "col5"),
            file = "testtlgsetup"
          )
        }
      )
    }
  )

  expect_snapshot_file(test_path("test_outputs/testtlgsetup.rtf"))
})