if (FALSE) {
z <- summarizor(
x = CO2[-c(1, 4)],
by = "Treatment",
overall_label = "Overall")
ft_1 <- as_flextable(z, separate_with = "variable")
ft_1 <- labelizor(
x = ft_1, j = c("stat"),
labels = c(Missing = "Kouign amann")
)
ft_1 <- labelizor(
x = ft_1, j = c("variable"),
labels = toupper
)
ft_1
}
Run the code above in your browser using DataLab