bug in regression_table flow

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)

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/data-import.R

@@ -35,7 +35,7 @@ data_import_ui <- function(id) {
       ),
       shiny::conditionalPanel(
         condition = "input.source=='env'",
-        import_globalenv_ui(id = ns("env"), title = NULL)
+        datamods::import_globalenv_ui(id = ns("env"), title = NULL)
       ),
       shiny::conditionalPanel(
         condition = "input.source=='redcap'",

R/hosted_version.R

@@ -1 +1 @@
-hosted_version <- function()'v25.5.4-250510'
+hosted_version <- function()'v25.5.4-250512'

R/regression_table.R

@@ -96,18 +96,31 @@
 #'   # 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"]

inst/apps/FreesearchR/app.R

@@ -26,7 +26,7 @@ library(shiny)
 # library(DHARMa)
 # library(apexcharter)
 library(toastui)
-# library(datamods)
+library(datamods)
 # library(IDEAFilter)
 library(shinyWidgets)
 # library(DT)
@@ -49,7 +49,7 @@ library(rlang)
 #### Current file: /Users/au301842/FreesearchR/R//app_version.R 
 ########
 
-app_version <- function()'25.5.3'
+app_version <- function()'25.5.4'
 
 
 ########
@@ -2455,7 +2455,7 @@ data_import_ui <- function(id) {
       ),
       shiny::conditionalPanel(
         condition = "input.source=='env'",
-        import_globalenv_ui(id = ns("env"), title = NULL)
+        datamods::import_globalenv_ui(id = ns("env"), title = NULL)
       ),
       shiny::conditionalPanel(
         condition = "input.source=='redcap'",
@@ -3996,7 +3996,7 @@ simple_snake <- function(data){
 #### Current file: /Users/au301842/FreesearchR/R//hosted_version.R 
 ########
 
-hosted_version <- function()'v25.5.3-250510'
+hosted_version <- function()'v25.5.4-250512'
 
 
 ########
@@ -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"]

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