R/rndTidy.R

In kgoldfeld/ksgMisc: KSG Miscellaneous Functions

#' Appends parameter estimates into list of data.table ...
#'
#' @param modelFit Model fit (works with glm and lm for sure) object
#' @param digits Number of digits to round to
#' @return plot
#' @export
#'
rndTidy <- function(modelFit, digits = 2) {

  tidyTable <- data.frame(broom::tidy(modelFit))

  for (i in 1:ncol(tidyTable)) {

    if (is.numeric(tidyTable[,i]))
      tidyTable[,i] <- round(tidyTable[, i] , digits)

  }

  return(data.table::data.table(tidyTable))

}