exportng regression_table_create function

This commit is contained in:
Andreas Gammelgaard Damsbo 2025-05-12 12:57:24 +02:00
commit a82a5c6378
No known key found for this signature in database
3 changed files with 43 additions and 0 deletions

View file

@ -108,6 +108,17 @@ regression_table <- function(x, ...) {
}
}
#' Create regression summary table
#'
#' @param x (list of) regression model
#' @param ... ignored for now
#' @param args.list args.list for the summary function
#' @param fun table summary function. Default is "gtsummary::tbl_regression"
#' @param theme summary table theme
#'
#' @returns gtsummary list object
#' @export
#'
regression_table_create <- function(x, ..., args.list = NULL, fun = "gtsummary::tbl_regression", theme = c("jama", "lancet", "nejm", "qjecon")) {
# Stripping custom class
class(x) <- class(x)[class(x) != "freesearchr_model"]