R/adapt_round.R

In bcjaeger/Solo: Tabulates Prevalence and Hazard Ratios ("Never Tell me the Odds!")

#' a helper function for rounding numbers, big and small.
#'
#' @param x numeric vector of numbers.
#' @return character vector of rounded numbers
#' @examples
#'
#' adapt_round(c(1.256, 11.22, 100.230))
#'
#' @export

adapt_round <- function(x){

  x_abs <- abs(x)

  for(i in seq_along(x_abs)){

    if(x_abs[i] < 10) {
      dig = 2
    } else if(x_abs[i] < 1000){
      dig = 1
    } else if(x_abs[i] > 1000){
      dig = 0
    } else {
      dig = 0
    }

    x[i] <- format(round(as.numeric(x[i]), dig),nsmall=dig, big.mark=',')

  }

  x

}