From 6db500d13a9cd7009092ae544d0604e435e1c625 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Mon, 12 May 2025 13:58:45 +0200
Subject: [PATCH] bug in regression_table flow

---
 NEWS.md                     |  4 ++++
 R/regression_table.R        |  6 ++++--
 inst/apps/FreesearchR/app.R | 17 +++++++++++++++--
 3 files changed, 23 insertions(+), 4 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index 5f097c1..2cd0e65 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,3 +1,7 @@
+# FreesearchR 25.5.5
+
+- *FIX* several minor bugs and polish
+
 # FreesearchR 25.5.4
 
 - *FIX* correctly omit NAs in `data_type()` call
diff --git a/R/regression_table.R b/R/regression_table.R
index d1b798a..71e9927 100644
--- a/R/regression_table.R
+++ b/R/regression_table.R
@@ -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)
   }
 }
 
diff --git a/inst/apps/FreesearchR/app.R b/inst/apps/FreesearchR/app.R
index 684d74c..7882c2c 100644
--- a/inst/apps/FreesearchR/app.R
+++ b/inst/apps/FreesearchR/app.R
@@ -7090,18 +7090,31 @@ symmetrical_scale_x_log10 <- function(plot, breaks = c(1, 2, 3, 5, 10), ...) {
 #'   # 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)
   }
 }
 
+#' 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"]