From a82a5c6378589e0d1c89cf3ae4d47d49d3ffe880 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Mon, 12 May 2025 12:57:24 +0200
Subject: [PATCH] exportng regression_table_create function

---
 NAMESPACE                      |  1 +
 R/regression_table.R           | 11 +++++++++++
 man/regression_table_create.Rd | 31 +++++++++++++++++++++++++++++++
 3 files changed, 43 insertions(+)
 create mode 100644 man/regression_table_create.Rd

diff --git a/NAMESPACE b/NAMESPACE
index cbc6d0e..8e8a7a2 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -100,6 +100,7 @@ export(regression_model_list)
 export(regression_model_uv)
 export(regression_model_uv_list)
 export(regression_table)
+export(regression_table_create)
 export(remove_empty_attr)
 export(remove_empty_cols)
 export(remove_nested_list)
diff --git a/R/regression_table.R b/R/regression_table.R
index 3dea4a5..d1b798a 100644
--- a/R/regression_table.R
+++ b/R/regression_table.R
@@ -108,6 +108,17 @@ regression_table <- function(x, ...) {
   }
 }
 
+#' 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"]
diff --git a/man/regression_table_create.Rd b/man/regression_table_create.Rd
new file mode 100644
index 0000000..dcf5ef2
--- /dev/null
+++ b/man/regression_table_create.Rd
@@ -0,0 +1,31 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/regression_table.R
+\name{regression_table_create}
+\alias{regression_table_create}
+\title{Create regression summary table}
+\usage{
+regression_table_create(
+  x,
+  ...,
+  args.list = NULL,
+  fun = "gtsummary::tbl_regression",
+  theme = c("jama", "lancet", "nejm", "qjecon")
+)
+}
+\arguments{
+\item{x}{(list of) regression model}
+
+\item{...}{ignored for now}
+
+\item{args.list}{args.list for the summary function}
+
+\item{fun}{table summary function. Default is "gtsummary::tbl_regression"}
+
+\item{theme}{summary table theme}
+}
+\value{
+gtsummary list object
+}
+\description{
+Create regression summary table
+}