exportng regression_table_create function

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)

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

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