fix

easystats · Feb 13, 2024 · 32b9dd1 · 32b9dd1
1 parent b6c9c73
commit 32b9dd1
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/data_xtabulate.R b/R/data_xtabulate.R
@@ -51,6 +51,11 @@
   colnames(out) <- c("Value", "by", "N")
   total_n <- sum(out$N, na.rm = TRUE)
 
+  # we want to round N for weighted frequencies
+  if (!is.null(weights)) {
+    out$N <- round(out$N)
+  }
+
   out <- data_to_wide(out, values_from = "N", names_from = "by")
 
   # use variable name as column name