R/check_digits.R

In iotables: Reproducible Input-Output Economics Analysis, Economic and Environmental Impact Assessment with Empirical Data

#' @title Check digits parameter
#' @description This is an internal function to determine if the rounding can go ahead.
#' @param digits Digit input to check for validity.
#' @return An error if the digits are not \code{NULL} or an integer value.
#' @keywords internal

check_digits <- function(digits) {
  
  if (!is.null(digits)) { # Rounding digits must be numeric, if given
    if ( ! inherits(digits, "numeric") ) {
      stop ("Error in check_digits(digits): rounding 'digits' are not given as a numeric input.") }
  }
}