R/nice_statnum.R

In jazznbass/wmisc: Wilbert miscellaneous functions

#' Nice statnum
#' Formats numbers in the -1 to 1 range
#' 
#' @param x number
#' @param digits Number to round to
#' @examples
#' nice_statnum(c(1, -1, runif(4, -1, 1)))
#' 
#' @export
nice_statnum <- function(x, digits = 2) {
  sub("^(-?)0.", "\\1.", sprintf(paste0("%.", digits, "f"), x))
}