abandoned the methods approach for a more simpler conditional parsing as the S3 methods resulted in an error

NAMESPACE

@@ -1,13 +1,13 @@
 # Generated by roxygen2: do not edit by hand
 
 S3method(cut,hms)
-S3method(regression_table,default)
-S3method(regression_table,list)
 export(argsstring2list)
 export(baseline_table)
+export(custom_theme)
 export(cut_variable_server)
 export(cut_variable_ui)
 export(default_format_arguments)
+export(default_parsing)
 export(factorize)
 export(format_writer)
 export(getfun)

man/regression_table.Rd

@@ -2,15 +2,9 @@
 % Please edit documentation in R/regression_table.R
 \name{regression_table}
 \alias{regression_table}
-\alias{regression_table.list}
-\alias{regression_table.default}
 \title{Create table of regression model}
 \usage{
 regression_table(x, ...)
-
-\method{regression_table}{list}(x, ...)
-
-\method{regression_table}{default}(x, ..., args.list = NULL, fun = "gtsummary::tbl_regression")
 }
 \arguments{
 \item{x}{regression model}
@@ -80,4 +74,36 @@ list(
   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) != "webresearch_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()
+}
 }