# R/round_to_fraction.R In janitor: Simple Tools for Examining and Cleaning Dirty Data

#### Documented in round_to_fraction

```#' Round to the nearest fraction of a specified denominator.
#'
#' @description Round a decimal to the precise decimal value of a specified
#' fractional denominator.  Common use cases include addressing floating point
#' imprecision and enforcing that data values fall into a certain set.
#'
#' E.g., if a decimal represents hours and values should be logged to the nearest
#' minute, \code{round_to_fraction(x, 60)} would enforce that distribution and 0.57
#' would be rounded to 0.566667, the equivalent of 34/60.  0.56 would also be rounded
#' to 34/60.
#'
#' Set \code{denominator = 1} to round to whole numbers.
#'
#' The \code{digits} argument allows for rounding of the subsequent result.
#'
#' @details If \code{digits} is \code{Inf}, \code{x} is rounded to the fraction
#'   and then kept at full precision.  If \code{digits} is \code{"auto"}, the
#'   number of digits is automatically selected as
#'   \code{ceiling(log10(denominator)) + 1}.
#'
#' @param x A numeric vector
#' @param denominator The denominator of the fraction for rounding (a scalar or
#'   vector positive integer).
#' @param digits Integer indicating the number of decimal places to be used
#'   after rounding to the fraction.  This is passed to \code{base::round()}).
#'   Negative values are allowed (see Details). (\code{Inf} indicates no
#'   subsequent rounding)
#' @return the input x rounded to a decimal value that has an integer numerator relative
#'   to \code{denominator} (possibly subsequently rounded to a number of decimal
#'   digits).
#' @examples
#' round_to_fraction(1.6, denominator = 2)
#' round_to_fraction(pi, denominator = 7) # 22/7
#' round_to_fraction(c(8.1, 9.2), denominator = c(7, 8))
#' round_to_fraction(c(8.1, 9.2), denominator = c(7, 8), digits = 3)
#' round_to_fraction(c(8.1, 9.2, 10.3), denominator = c(7, 8, 1001), digits = "auto")
#' @export
round_to_fraction <- function(x, denominator, digits = Inf) {
stopifnot(is.numeric(x))
stopifnot(length(denominator) %in% c(1, length(x)))
stopifnot(is.numeric(denominator))
stopifnot(denominator >= 1)
if (!(identical(digits, "auto") ||
(is.numeric(digits) & (length(digits) %in% c(1, length(x)))))) {
stop('`digits` must be either "auto" or a number that is either a scalar (length = 1) or the same length as `x`.')
}
ret <- round(x * denominator, digits=0) / denominator
if (identical(digits, "auto")) {
digits <- ceiling(log10(denominator)) + 1
}