bug in regression_table flow
Some checks failed
pkgdown.yaml / pkgdown (push) Has been cancelled

This commit is contained in:
Andreas Gammelgaard Damsbo 2025-05-12 13:58:45 +02:00
commit 6db500d13a
No known key found for this signature in database
3 changed files with 23 additions and 4 deletions

View file

@ -96,15 +96,17 @@
#' # gtsummary::bold_p()
#' }
regression_table <- function(x, ...) {
args <- list(...)
if ("list" %in% class(x)) {
x |>
purrr::map(\(.m){
regression_table_create(x = .m, ...) |>
regression_table_create(x = .m, args.list = args) |>
gtsummary::add_n()
}) |>
gtsummary::tbl_stack()
} else {
regression_table_create(x, ...)
regression_table_create(x, args.list = args)
}
}