fix issues

easystats · Aug 11, 2023 · a435719 · a435719
1 parent 35334bc
commit a435719
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/means_by_group.R b/R/means_by_group.R
@@ -165,7 +165,7 @@ means_by_group.data.frame <- function(x,
   if (is.null(data$weights) || all(data$weights == 1)) {
     fit <- stats::lm(x ~ group, data = data)
   } else {
-    fit <- stats::lm(x ~ group, weights = weights, data = data)
+    fit <- stats::lm(x ~ group, weights = data$weights, data = data)
   }
 
   # summary table data
@@ -224,6 +224,9 @@ format.dw_groupmeans <- function(x, digits = NULL, ...) {
   if (is.null(digits)) {
     digits <- attr(x, "digits", exact = TRUE)
   }
+  if (is.null(digits)) {
+    digits <- 2
+  }
   insight::format_table(x, digits = digits, ...)
 }