feat: added add difference option to overview

app_docker/app.R

@@ -1,7 +1,7 @@
 
 
 ########
-#### Current file: /var/folders/9l/xbc19wxx0g79jdd2sf_0v291mhwh7f/T//RtmpT9sPX5/file6c80650aba81.R 
+#### Current file: /var/folders/9l/xbc19wxx0g79jdd2sf_0v291mhwh7f/T//RtmpftDBtp/file7bf3239dee0a.R 
 ########
 
 i18n_path <- here::here("translations")
@@ -63,7 +63,7 @@ i18n$set_translation_language("en")
 #### Current file: /Users/au301842/FreesearchR/R//app_version.R 
 ########
 
-app_version <- function()'25.12.3'
+app_version <- function()'25.12.5'
 
 
 ########
@@ -109,7 +109,7 @@ baseline_table <- function(data, fun.args = NULL, fun = gtsummary::tbl_summary,
 #' mtcars |> create_baseline(by.var = "gear", detail_level = "extended",type = list(gtsummary::all_dichotomous() ~ "categorical"),theme="nejm")
 #'
 #' create_baseline(default_parsing(mtcars), by.var = "am", add.p = FALSE, add.overall = FALSE, theme = "lancet")
-create_baseline <- function(data, ..., by.var, add.p = FALSE, add.overall = FALSE, theme = c("jama", "lancet", "nejm", "qjecon"), detail_level = c("minimal", "extended")) {
+create_baseline <- function(data, ..., by.var, add.p = FALSE, add.diff=FALSE, add.overall = FALSE, theme = c("jama", "lancet", "nejm", "qjecon"), detail_level = c("minimal", "extended")) {
   theme <- match.arg(theme)
 
   detail_level <- match.arg(detail_level)
@@ -172,6 +172,10 @@ create_baseline <- function(data, ..., by.var, add.p = FALSE, add.overall = FALS
         gtsummary::add_p() |>
         gtsummary::bold_p()
     }
+    if (isTRUE(add.diff)) {
+      out <- out |>
+        gtsummary::add_difference()
+    }
   }
 
   out
@@ -4438,7 +4442,7 @@ data_types <- function() {
 #### Current file: /Users/au301842/FreesearchR/R//hosted_version.R 
 ########
 
-hosted_version <- function()'v25.12.3-251211'
+hosted_version <- function()'v25.12.5-251211'
 
 
 ########
@@ -10285,10 +10289,20 @@ ui_elements <- function(selection) {
                         "Yes" = "yes"
                       )
                     ),
-                    shiny::helpText(i18n$t("Option to perform statistical comparisons between strata in baseline table."))
+                    # shiny::helpText(i18n$t("Option to perform statistical comparisons between strata in baseline table.")),
+                    shiny::br(),
+                    shiny::radioButtons(
+                      inputId = "add_diff",
+                      label = i18n$t("Include group differences"),
+                      selected = "no",
+                      inline = TRUE,
+                      choices = list(
+                        "No" = "no",
+                        "Yes" = "yes"
+                      )
+                    )
                   ),
                   shiny::br(),
-                  shiny::br(),
                   shiny::actionButton(
                     inputId = "act_eval",
                     label = i18n$t("Evaluate"),
@@ -13713,6 +13727,7 @@ server <- function(input, output, session) {
         by.var = input$strat_var,
         add.p = input$add_p == "yes",
         add.overall = TRUE,
+        add.diff = input$add_diff == "yes",
         # theme = input$baseline_theme,
         detail_level = input$detail_level
       )

app_docker/renv.lock

@@ -8397,6 +8397,39 @@
       "Maintainer": "Dean Attali <daattali@gmail.com>",
       "Repository": "CRAN"
     },
+    "smd": {
+      "Package": "smd",
+      "Version": "0.8.0",
+      "Source": "Repository",
+      "Type": "Package",
+      "Title": "Compute Standardized Mean Differences",
+      "Authors@R": "c(person(\"Bradley\", \"Saul\", role = c(\"aut\", \"cre\"),  email = \"bradleysaul@fastmail.com\"), person(\"Alex\", \"Breskin\", role = c(\"ctb\"),  email = \"alexbreskin@gmail.com\"), person(\"Catie\", \"Wiener\", role = c(\"ctb\"),  email = \"cwiener@live.unc.edu\"), person(\"Matt\", \"Phelan\", role = c(\"ctb\"),  email = \"mpphelan1@gmail.com\"), person(\"Daniel\", \"Sjoberg\", role = c(\"ctb\"), email = \"danield.sjoberg@gmail.com\"), person(\"Nuvan\", \"Rathnayaka\", role = c(\"ctb\"), email = \"nuvanrath@proton.me\"), person(\"Malcolm\", \"Barrett\", role = c(\"ctb\"),  email = \"malcolmbarrett@gmail.com\") )",
+      "Description": "Computes standardized mean differences and confidence intervals for  multiple data types based on Yang, D., & Dalton, J. E. (2012)  <https://support.sas.com/resources/papers/proceedings12/335-2012.pdf>.",
+      "Imports": [
+        "MASS (>= 7.3-50)",
+        "methods (>= 3.5.1)"
+      ],
+      "Suggests": [
+        "testthat",
+        "stddiff",
+        "tableone",
+        "knitr",
+        "dplyr",
+        "purrr",
+        "markdown",
+        "rmarkdown"
+      ],
+      "License": "MIT + file LICENSE",
+      "URL": "https://bsaul.github.io/smd/",
+      "BugReports": "https://github.com/bsaul/smd/issues",
+      "Encoding": "UTF-8",
+      "RoxygenNote": "7.3.2",
+      "VignetteBuilder": "knitr",
+      "Repository": "CRAN",
+      "NeedsCompilation": "no",
+      "Author": "Bradley Saul [aut, cre], Alex Breskin [ctb], Catie Wiener [ctb], Matt Phelan [ctb], Daniel Sjoberg [ctb], Nuvan Rathnayaka [ctb], Malcolm Barrett [ctb]",
+      "Maintainer": "Bradley Saul <bradleysaul@fastmail.com>"
+    },
     "sourcetools": {
       "Package": "sourcetools",
       "Version": "0.1.7-1",

app_docker/translations/translation_da.csv

@@ -306,3 +306,4 @@
 "Select outcome variable for overview","Select outcome variable for overview"
 "No outcome measure chosen","No outcome measure chosen"
 "There is a significant difference in data missingness in {n_nonmcar} {ifelse(n_nonmcar==1,'variable','variables')} grouped by the selected outcome/grouping variable {outcome}.","There is a significant difference in data missingness in {n_nonmcar} {ifelse(n_nonmcar==1,'variable','variables')} grouped by the selected outcome/grouping variable {outcome}."
+"Include group differences","Include group differences"

app_docker/translations/translation_de.csv

@@ -306,3 +306,4 @@
 "Select outcome variable for overview","Select outcome variable for overview"
 "No outcome measure chosen","No outcome measure chosen"
 "There is a significant difference in data missingness in {n_nonmcar} {ifelse(n_nonmcar==1,'variable','variables')} grouped by the selected outcome/grouping variable {outcome}.","There is a significant difference in data missingness in {n_nonmcar} {ifelse(n_nonmcar==1,'variable','variables')} grouped by the selected outcome/grouping variable {outcome}."
+"Include group differences","Include group differences"

app_docker/translations/translation_sv.csv

@@ -306,3 +306,4 @@
 "Select outcome variable for overview","Select outcome variable for overview"
 "No outcome measure chosen","No outcome measure chosen"
 "There is a significant difference in data missingness in {n_nonmcar} {ifelse(n_nonmcar==1,'variable','variables')} grouped by the selected outcome/grouping variable {outcome}.","There is a significant difference in data missingness in {n_nonmcar} {ifelse(n_nonmcar==1,'variable','variables')} grouped by the selected outcome/grouping variable {outcome}."
+"Include group differences","Include group differences"

app_docker/translations/translation_sw.csv

@@ -306,3 +306,4 @@
 "Select outcome variable for overview","Select outcome variable for overview"
 "No outcome measure chosen","No outcome measure chosen"
 "There is a significant difference in data missingness in {n_nonmcar} {ifelse(n_nonmcar==1,'variable','variables')} grouped by the selected outcome/grouping variable {outcome}.","There is a significant difference in data missingness in {n_nonmcar} {ifelse(n_nonmcar==1,'variable','variables')} grouped by the selected outcome/grouping variable {outcome}."
+"Include group differences","Include group differences"