extrobe
2/14/2017 - 5:10 PM

FUNCTION: Format numbers as Percentage

FUNCTION: Format numbers as Percentage

percent <- function(x, digits = 1, format = "f", ...) {
  paste0(formatC(100 * x, format = format, digits = digits, ...), "%")
}