tests/testthat/test_print_grouped_xtable.R

In HughParsonage/grattanCharts: Create Charts in the Style of the Grattan Insitute, Melbourne

context("Grouped Table")

test_that("Returns expected output STE__Age_Sex", {
  library(data.table)
  DT <- fread("print-grouped-xtable/STE__Age_Sex.tsv")
  expected <- readLines("print-grouped-xtable/STE__Age_Sex-expected.tex")
  print_grouped_xtable(DT,
                       group_by = c("STE_NAME16", "Age"),
                       align = "rrrr",
                       out.file = paste0("print-grouped-xtable/STE__Age_Sex-actual.tex"),
                       column_format = function(x) sprintf("\\textbf{%s}", 
                                                           gsub("_", "\\\\_", x)))
  actual <- readLines("print-grouped-xtable/STE__Age_Sex-actual.tex")
  expect_equal(expected, actual)
})