pctformat

vincentarelbundock · Sep 14, 2020 · 0b4c160 · 0b4c160
1 parent b7afc8c
commit 0b4c160
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/datasummary_skim.R b/R/datasummary_skim.R
@@ -189,7 +189,7 @@ datasummary_skim <- function(data,
       stop("Cannot summarize more than 50 variables at a time.")
     }
 
-    pctformat = function(x) sprintf("%.1f", x)
+    pctformat = function(x) sprintf(fmt, x)
     f <- All(dat_new, numeric=FALSE, factor=TRUE, logical=TRUE, character=TRUE) ~
          (N = 1) * Format(digits=0) + (`%` = Percent()) * Format(pctformat())