Add argument to percent()

anthonyokc · Oct 4, 2023 · 0e84427 · 0e84427
1 parent 2691f8d
commit 0e84427
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 6 deletions.
diff --git a/R/percent.R b/R/percent.R
@@ -21,15 +21,17 @@
 percent <- function(x,
                     digits = 0,
                     abs = FALSE,
-                    drop0trailing = FALSE
+                    drop0trailing = FALSE,
+                    multiply_by_100 = TRUE,
+                    ...
                     ) {
 
   .drop0trailing <- drop0trailing
   .digits <- digits
-  if (abs) {
-    x <- abs(x)
-  }
-  x <- 100 * x
+
+  if (abs) { x <- abs(x) }
+  if (multiply_by_100) { x <- 100 * x }
+
   x <- janitor::round_half_up(x, digits = .digits)
   x <-
     formatC(

diff --git a/man/percent.Rd b/man/percent.Rd