if (FALSE) { # \dontrun{
-tbl <- gtsummary::trial |>
- regression_model(
- outcome.str = "stage",
- fun = "MASS::polr"
- ) |>
- regression_table(args.list = list("exponentiate" = TRUE))
-gtsummary::trial |>
- regression_model(
- outcome.str = "age",
- fun = "stats::lm",
- formula.str = "{outcome.str}~.",
- args.list = NULL
- ) |>
- regression_table() |>
- plot()
-gtsummary::trial |>
- regression_model(
- outcome.str = "trt",
- fun = "stats::glm",
- args.list = list(family = binomial(link = "logit"))
- ) |>
- regression_table()
-gtsummary::trial |>
- regression_model_uv(
- outcome.str = "trt",
- fun = "stats::glm",
- args.list = list(family = stats::binomial(link = "logit"))
- ) |>
- regression_table()
-gtsummary::trial |>
- regression_model_uv(
- outcome.str = "stage",
- args.list = list(family = stats::binomial(link = "logit"))
- ) |>
- regression_table()
-
-list(
- "Univariable" = regression_model_uv,
- "Multivariable" = regression_model
-) |>
- lapply(\(.fun){
- do.call(
- .fun,
- c(
- list(data = gtsummary::trial),
- list(outcome.str = "stage")
- )
- )
- }) |>
- purrr::map(regression_table) |>
- tbl_merge()
-} # }
-regression_table <- function(x, ...) {
- UseMethod("regression_table")
-}
-
-#' @rdname regression_table
-#' @export
-regression_table.list <- function(x, ...) {
- x |>
- purrr::map(\(.m){
- regression_table(x = .m, ...) |>
- gtsummary::add_n()
- }) |>
- gtsummary::tbl_stack()
-}
-
-#' @rdname regression_table
-#' @export
-regression_table.default <- function(x, ..., args.list = NULL, fun = "gtsummary::tbl_regression") {
- # Stripping custom class
- class(x) <- class(x)[class(x) != "freesearchr_model"]
-
- if (any(c(length(class(x)) != 1, class(x) != "lm"))) {
- if (!"exponentiate" %in% names(args.list)) {
- args.list <- c(args.list, list(exponentiate = TRUE))
- }
- }
-
- out <- do.call(getfun(fun), c(list(x = x), args.list))
- out |>
- gtsummary::add_glance_source_note() # |>
- # gtsummary::bold_p()
-}
-