R/decimal_ceiling.R

In ConGibbs10/utilsGibbs: What the Package Does (One Line, Title Case)

#' Rounding of decimals
#'
#' @param x A numeric vector.
#' @param digits The desired number of digits after the decimal point.
#'
#' @description Takes a numeric vector x and returns a numeric vector containing the smallest numerics with `digits` places after the decimal not less than the corresponding elements of x.
#'
#' @return A numeric vector.
#' @export
#'
#' @examples
#' decimal_ceiling(x = 10.12345, digits = 3)
decimal_ceiling <- function(x, digits = 1) {
  x2 <- x * 10 ^ digits
  return(ceiling(x2) / 10 ^ digits)
}