include % symbol by default

philsf · May 11, 2018 · e909823 · e909823
1 parent 6aec221
commit e909823
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/format.pct.R b/R/format.pct.R
@@ -1,3 +1,5 @@
-format.pct <- function(p, digits = 0) {
-  format.float(p*100, digits)
+format.pct <- function(p, digits = 0, pct.symbol = TRUE) {
+  symbol <- "%"
+  if (!pct.symbol) symbol <- NULL
+  paste0(format.float(p*100, digits), symbol)
 }