Merge branch 'main' of github.com:vincentarelbundock/modelsummary into main

Author: vincentarelbundock

R/datasummary_balance.R

@@ -174,7 +174,7 @@ datasummary_balance_factor <- function(rhs, data, data_norhs, any_numeric) {
 
   # formula
   f_fac <- 'All(data_norhs, factor = TRUE, numeric = FALSE) ~
-            Factor(%s) * (Heading("N")*1 * Format(digits = 0) +
+            Factor(%s) * (Heading("N")*1 * Format() +
             Heading("%%") * Percent("col") * Format(pctformat()))'
   f_fac <- sprintf(f_fac, rhs)
 

R/datasummary_skim.R

@@ -337,7 +337,7 @@ datasummary_skim_categorical <- function(
 
   pctformat <- function(x) rounding(x, fmt)
   f <- All(dat_new, numeric = FALSE, factor = TRUE, logical = TRUE, character = TRUE) ~
-       (N = 1) * Format(digits=0) + (`%` = Percent()) * Format(pctformat())
+       (N = 1) * Format() + (`%` = Percent()) * Format(pctformat())
 
   out <- datasummary(
     formula = f,