# 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)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.