R/round_num.R

Defines functions round_num.default round_num.list round_num.data.frame round_num

Documented in round_num

#' @title Round numeric variables in a data frame
#' @name round_num
#'
#' @description \code{round_num()} rounds numeric variables in a data frame
#'    that also contains non-numeric variables. Non-numeric variables are
#'    ignored.
#'
#' @param digits Numeric, number of decimals to round to.
#' @inheritParams to_dummy
#'
#' @return \code{x} with all numeric variables rounded.
#'
#' @examples
#' data(iris)
#' round_num(iris)
#'
#' @export
round_num <- function(x, digits = 0) {
  UseMethod("round_num")
}


#' @export
round_num.data.frame <- function(x, digits = 0) {
  xa <- attributes(x)

  x <- x %>%
    purrr::map_if(is.numeric, ~ round(.x, digits = digits)) %>%
    as.data.frame(stringsAsFactors = FALSE)

  attributes(x) <- xa
  x
}


#' @export
round_num.list <- function(x, digits = 0) {
  purrr::map_if(x, is.numeric, ~ round(.x, digits = digits))
}


#' @export
round_num.default <- function(x, digits = 0) {
  round(x, digits = digits)
}
strengejacke/sjmisc documentation built on June 29, 2023, 4:28 p.m.