R/round0.R

In EstherHerbert/Useful.functions: Some Useful Functions

#' Rounds numbers but keeps trailing zeros
#'
#' @description This function is a shortcut for
#'              `formatC(x, digits, format = "f")`.
#'
#' @param x a numeric vector
#' @param digits an integer indicating the number of decimal places
#'
#' @return a character string
#'
#' @examples
#' round(5.601, 2)
#' round0(5.601, 2)
#'
#' @export
round0 <- function(x, digits) {
  x <- formatC(x, digits = digits, format = "f")
  return(x)
}