added option to choose var to stratify

inst/apps/data_analysis/rsconnect/shinyapps.io/agdamsbo/webResearch.dcf

@@ -5,6 +5,6 @@ account: agdamsbo
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 13276335
-bundleId: 9412301
+bundleId: 9425248
 url: https://agdamsbo.shinyapps.io/webResearch/
 version: 1

inst/apps/data_analysis/server.R

@@ -84,6 +84,16 @@ server <- function(input, output, session) {
     )
   })
 
+  output$strat_var <- shiny::renderUI({
+    selectInput(
+      inputId = "strat_var",
+      selected = "none",
+      label = "Select variable to stratify baseline",
+      choices = c("none" ,colnames(ds())),
+      multiple = FALSE
+    )
+  })
+
   output$factor_vars <- shiny::renderUI({
     selectizeInput(
       inputId = "factor_vars",
@@ -117,8 +127,8 @@ server <- function(input, output, session) {
 
       data <- data |> factorize(vars = input$factor_vars)
 
-      if (is.factor(data[[input$outcome_var]])) {
-        by.var <- input$outcome_var
+      if (is.factor(data[[input$strat_var]])) {
+        by.var <- input$strat_var
       } else {
         by.var <- NULL
       }
@@ -149,7 +159,14 @@ server <- function(input, output, session) {
               list(
                 by = by.var
               )
-          ),
+          ) |>
+          (\(.x){
+            if (!is.null(by.var)){
+              .x |> gtsummary::add_overall()
+            } else {
+              .x
+            }
+          })(),
         table2 = model |>
           regression_table()
       )

inst/apps/data_analysis/ui.R

@@ -128,6 +128,7 @@ ui <- bslib::page(
         ),
         shiny::helpText(em("Please specify relevant columns from your data, and press 'Load data'")),
         shiny::uiOutput("outcome_var"),
+        shiny::uiOutput("strat_var"),
         shiny::radioButtons(
           inputId = "all",
           label = "Specify covariables",