From 32b9dd14a6232590c86b4a24efda4d32057e062f Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Tue, 13 Feb 2024 12:00:00 +0100
Subject: [PATCH] fix

---
 R/data_xtabulate.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/R/data_xtabulate.R b/R/data_xtabulate.R
index 6a5926f11..939019f38 100644
--- 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