fix

easystats · Dec 23, 2024 · b7619a5 · b7619a5
1 parent 4dbf894
commit b7619a5
Showing 1 changed file with 9 additions and 9 deletions.
diff --git 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>", "(NA)"),
+      empty_line = "-",
+      format = format,
+      by = "groups"
+    ))
   }
-  # print table
-  cat(insight::export_table(
-    out,
-    cross = "+",
-    missing = ifelse(identical(format, "text"), "<NA>", "(NA)"),
-    empty_line = "-",
-    format = format,
-    by = "groups"
-  ))
 }