R/pjp_round_nice.R

In perezp44/pjpv.curso.2022: Paquete de apoyo a mis cursos

#' @title round numbers nicely
#' @description Ya lo he dicho round numbers nicely
#' This function rounds data in a nice way. See: https://twitter.com/hspter/status/314858331598626816
#'  pjp_f_round_nice(c(-0.0002, 0.0002, 0.5, -0.5, -0.002), digits = 3)
#'  should return c("0.000", "0.000", "0.500", "-0.500", "-0.002")
#' Thanks Karl Broman!!
#' @param ...  valores introducidos
#' @param digits  (digitos a mostrar, default = 2)
#' @export



pjp_round_nice <- function(..., digits = 2) {
  g <- sprintf(paste0("%.", digits, "f"), ...)
  z <- paste0("0.", paste(rep("0", digits), collapse=""))
  g[g==paste0("-",z)] <- z
  return(g)
}