bug in regression_table flow

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

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)
   }
 }
 

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"]