tests/testthat/test-freq-edge-cases.R

In MartinLBarron/freqR: Simple Frequency Tables

# core formats ------------------------------------------------------------

test_that("works if padding set small and total row is large", {
  library(dplyr)
  options(simplefreqs.inner_table_padding = 1)
  data("storms")
  expect_snapshot(freq(storms, day, plot = F, markdown=F))
  options(simplefreqs.inner_table_padding = NULL)
})