diff --git a/R/data_xtabulate.R b/R/data_xtabulate.R index 6f0ca2d22..95bb0a430 100644 --- a/R/data_xtabulate.R +++ b/R/data_xtabulate.R @@ -340,16 +340,16 @@ print_html.datawizard_crosstabs <- function(x, big_mark = NULL, ...) { # now reorder and bind out <- do.call(rbind, x) out$Variable[duplicated(out$Variable)] <- "" + # print table + cat(insight::export_table( + out, + cross = "+", + missing = ifelse(identical(format, "text"), "", "(NA)"), + empty_line = "-", + format = format, + by = "groups" + )) } - # print table - cat(insight::export_table( - out, - cross = "+", - missing = ifelse(identical(format, "text"), "", "(NA)"), - empty_line = "-", - format = format, - by = "groups" - )) }