# \dontshow{
data.table::setDTthreads(1)
# }
z <- summarizor(CO2[-c(1, 4)],
by = "Treatment",
overall_label = "Overall"
)
ft_1 <- as_flextable(z, spread_first_col = TRUE)
ft_1 <- prepend_chunks(ft_1,
i = ~ is.na(variable), j = 1,
as_chunk("\t")
)
ft_1 <- autofit(ft_1)
ft_1
Run the code above in your browser using DataLab