crosstable example

library(haven)
library(multitabulation)
library(flextable)

urlName <- "https://historico-amu.ine.cl/enut/files/db/BASE_DATOS_ENUT_spss.zip"
temp <- tempfile()
download.file(urlName,temp)
ENUT <- read_spss(unzip(temp, "BASE_USUARIO_corregida.sav"))

unlink(temp)

as_factor(ENUT$f13_1_1)

crosstable(wgtH ~ as_factor(f13_1_1) + as_factor(f17_2_1), data=ENUT, stats=c("count", "column"), format=c("#.#0,0", "#.#0,0%")) %>%
  as_flextable