R/print.R

Defines functions print.mediator

#' @export
print.mediator <- function(x, digits = 5, ...){
  clean_x <- dplyr::as_tibble(x) %>%
    dplyr::mutate_if(is.numeric, ~round(., digits))

  print(clean_x)
}
jhcreed/mediator documentation built on Dec. 13, 2020, 12:43 p.m.