R/getDigits.R

In mlim: Single and Multiple Imputation with Automated Machine Learning

#' @title getDigits
#' @description extracts number of digits
#' @author E. F. Haghish
#' @return integer
#' @keywords Internal
#' @noRd

getDigits <- function(x) {
  if (!is.null(x)) {
    result <- floor(log10(abs(x)))
    result[!is.finite(result)] = 0
    return(abs(result))
  }
  else return(0)
}