R/utils_roundDownNice.R

In subscreen: Systematic Screening of Study Data for Subgroup Effects

  roundDownNice <- function(x, nice) {
    if (length(x) != 1) stop("'x' must be of length 1")
    if (x >= 0) 10^floor(log10(x)) * nice[[max(which(x >= 10^floor(log10(x)) * nice))]]
    else -1 * (roundUpNice(-x, nice = nice))
  }