feat: added add difference option to overview

2025-12-15 17:12:09 +01:00 · 2025-12-11 22:48:30 +01:00 · 2025-12-11 22:48:30 +01:00 · 2a580965e3
commit 2a580965e3
parent 208590e91f
22 changed files with 159 additions and 36 deletions
--- a/CITATION.cff
+++ b/CITATION.cff
@ -8,7 +8,7 @@ message: 'To cite package "FreesearchR" in publications use:'
 type: software
 license: AGPL-3.0-or-later
 title: 'FreesearchR: Easy data analysis for clinicians'
-version: 25.12.3
+version: 25.12.5
 doi: 10.5281/zenodo.14527429
 identifiers:
 - type: url
@ -1128,6 +1128,18 @@ references:
    email: garnier@njit.edu
  year: '2025'
  doi: 10.32614/CRAN.package.viridis
+- type: software
+  title: smd
+  abstract: 'smd: Compute Standardized Mean Differences'
+  notes: Imports
+  url: https://bsaul.github.io/smd/
+  repository: https://CRAN.R-project.org/package=smd
+  authors:
+  - family-names: Saul
+    given-names: Bradley
+    email: bradleysaul@fastmail.com
+  year: '2025'
+  doi: 10.32614/CRAN.package.smd
 - type: software
  title: styler
  abstract: 'styler: Non-Invasive Pretty Printing of R Code'
--- a/5
+++ b/5
@ -1,6 +1,6 @@
 Package: FreesearchR
 Title: Easy data analysis for clinicians
-Version: 25.12.4
+Version: 25.12.5
 Authors@R: c(
    person("Andreas Gammelgaard", "Damsbo",email="agdamsbo@clin.au.dk", role = c("aut", "cre"),
           comment = c(ORCID = "0000-0002-7559-1154")),
@ -70,7 +70,8 @@ Imports:
    shiny.i18n,
    stRoke,
    data.table,
-    viridis
+    viridis,
+    smd
 Suggests: 
    styler,
    devtools,
--- a/NEWS.md
+++ b/NEWS.md
@ -1,3 +1,7 @@
+# FreesearchR 25.12.5
+
+*NEW* Added option to add pairwise differences in discriptive table.
+
 # FreesearchR 25.12.4

 Republish 25.12.3
--- a/R/app_version.R
+++ b/R/app_version.R
@ -1 +1 @@
-app_version <- function()'25.12.3'
+app_version <- function()'25.12.5'
--- a/R/baseline_table.R
+++ b/R/baseline_table.R
@ -37,7 +37,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)
@ -100,6 +100,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
--- a/R/hosted_version.R
+++ b/R/hosted_version.R
@ -1 +1 @@
-hosted_version <- function()'v25.12.3-251211'
+hosted_version <- function()'v25.12.5-251211'
--- a/R/sysdata.rda
+++ b/R/sysdata.rda
--- a/R/ui_elements.R
+++ b/R/ui_elements.R
@ -400,10 +400,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"),
--- a/SESSION.md
+++ b/SESSION.md
@ -15,7 +15,7 @@
 |rstudio     |2025.09.2+418 Cucumberleaf Sunflower (desktop) |
 |pandoc      |3.6.4 @ /opt/homebrew/bin/ (via rmarkdown)     |
 |quarto      |1.7.30 @ /usr/local/bin/quarto                 |
-|FreesearchR |25.12.3.251211                                 |
+|FreesearchR |25.12.5.251211                                 |
                                                                                
                                                                                
 --------------------------------------------------------------------------------
@ -44,7 +44,6 @@
 |cardx             |0.3.1         |2025-12-04 |CRAN (R 4.4.3) |
 |caTools           |1.18.3        |2024-09-04 |CRAN (R 4.4.1) |
 |cellranger        |1.1.0         |2016-07-27 |CRAN (R 4.4.0) |
-|cffr              |1.2.0         |2025-01-25 |CRAN (R 4.4.1) |
 |checkmate         |2.3.3         |2025-08-18 |CRAN (R 4.4.1) |
 |class             |7.3-23        |2025-01-01 |CRAN (R 4.4.1) |
 |classInt          |0.4-11        |2025-01-08 |CRAN (R 4.4.1) |
@ -54,7 +53,6 @@
 |colorspace        |2.1-2         |2025-09-22 |CRAN (R 4.4.1) |
 |commonmark        |2.0.0         |2025-07-07 |CRAN (R 4.4.1) |
 |crayon            |1.5.3         |2024-06-20 |CRAN (R 4.4.1) |
-|curl              |7.0.0         |2025-08-19 |CRAN (R 4.4.1) |
 |data.table        |1.17.8        |2025-07-10 |CRAN (R 4.4.1) |
 |datamods          |1.5.3         |2024-10-02 |CRAN (R 4.4.1) |
 |datawizard        |1.3.0         |2025-10-11 |CRAN (R 4.4.1) |
@ -85,7 +83,7 @@
 |foreach           |1.5.2         |2022-02-02 |CRAN (R 4.4.0) |
 |foreign           |0.8-90        |2025-03-31 |CRAN (R 4.4.1) |
 |Formula           |1.2-5         |2023-02-24 |CRAN (R 4.4.1) |
-|FreesearchR       |25.12.3       |NA         |NA             |
+|FreesearchR       |25.12.5       |NA         |NA             |
 |fs                |1.6.6         |2025-04-12 |CRAN (R 4.4.1) |
 |gdtools           |0.4.4         |2025-10-06 |CRAN (R 4.4.1) |
 |generics          |0.1.4         |2025-05-09 |CRAN (R 4.4.1) |
@ -113,11 +111,9 @@
 |iterators         |1.0.14        |2022-02-05 |CRAN (R 4.4.1) |
 |jquerylib         |0.1.4         |2021-04-26 |CRAN (R 4.4.0) |
 |jsonlite          |2.0.0         |2025-03-27 |CRAN (R 4.4.1) |
-|jsonvalidate      |1.5.0         |2025-02-07 |CRAN (R 4.4.1) |
 |KernSmooth        |2.23-26       |2025-01-01 |CRAN (R 4.4.1) |
 |keyring           |1.4.1         |2025-06-15 |CRAN (R 4.4.1) |
 |knitr             |1.50          |2025-03-16 |CRAN (R 4.4.1) |
-|labeling          |0.4.3         |2023-08-29 |CRAN (R 4.4.1) |
 |later             |1.4.4         |2025-08-27 |CRAN (R 4.4.1) |
 |lattice           |0.22-7        |2025-04-02 |CRAN (R 4.4.1) |
 |lifecycle         |1.0.4         |2023-11-07 |CRAN (R 4.4.1) |
@ -141,7 +137,6 @@
 |openssl           |2.3.4         |2025-09-30 |CRAN (R 4.4.1) |
 |openxlsx2         |1.22          |2025-12-07 |CRAN (R 4.4.3) |
 |otel              |0.2.0         |2025-08-29 |CRAN (R 4.4.1) |
-|pak               |0.9.1         |2025-12-01 |CRAN (R 4.4.3) |
 |parameters        |0.28.3        |2025-11-25 |CRAN (R 4.4.3) |
 |patchwork         |1.3.2         |2025-08-25 |CRAN (R 4.4.1) |
 |pbmcapply         |1.5.1         |2022-04-28 |CRAN (R 4.4.1) |
@ -162,14 +157,9 @@
 |qqconf            |1.3.2         |2023-04-14 |CRAN (R 4.4.0) |
 |qqplotr           |0.0.7         |2025-09-05 |CRAN (R 4.4.1) |
 |quarto            |1.5.1         |2025-09-04 |CRAN (R 4.4.1) |
-|R.cache           |0.17.0        |2025-05-02 |CRAN (R 4.4.1) |
-|R.methodsS3       |1.8.2         |2022-06-13 |CRAN (R 4.4.1) |
-|R.oo              |1.27.1        |2025-05-02 |CRAN (R 4.4.1) |
-|R.utils           |2.13.0        |2025-02-24 |CRAN (R 4.4.1) |
 |R6                |2.6.1         |2025-02-15 |CRAN (R 4.4.1) |
 |ragg              |1.5.0         |2025-09-02 |CRAN (R 4.4.1) |
 |rankinPlot        |1.1.0         |2023-01-30 |CRAN (R 4.4.0) |
-|rappdirs          |0.3.3         |2021-01-31 |CRAN (R 4.4.1) |
 |rbibutils         |2.4           |2025-11-07 |CRAN (R 4.4.1) |
 |RColorBrewer      |1.1-3         |2022-04-03 |CRAN (R 4.4.1) |
 |Rcpp              |1.1.0         |2025-07-02 |CRAN (R 4.4.1) |
@ -206,11 +196,10 @@
 |shinyjs           |2.1.0         |2021-12-23 |CRAN (R 4.4.0) |
 |shinyTime         |1.0.3         |2022-08-19 |CRAN (R 4.4.0) |
 |shinyWidgets      |0.9.0         |2025-02-21 |CRAN (R 4.4.1) |
-|sourcetools       |0.1.7-1       |2023-02-01 |CRAN (R 4.4.1) |
+|smd               |0.8.0         |2025-02-12 |CRAN (R 4.4.1) |
 |stringi           |1.8.7         |2025-03-27 |CRAN (R 4.4.1) |
 |stringr           |1.6.0         |2025-11-04 |CRAN (R 4.4.1) |
 |stRoke            |25.9.2        |2025-09-30 |CRAN (R 4.4.1) |
-|styler            |1.11.0        |2025-10-13 |CRAN (R 4.4.1) |
 |systemfonts       |1.3.1         |2025-10-01 |CRAN (R 4.4.1) |
 |testthat          |3.3.1         |2025-11-25 |CRAN (R 4.4.3) |
 |textshaping       |1.0.4         |2025-10-10 |CRAN (R 4.4.1) |
@ -224,9 +213,7 @@
 |twosamples        |2.0.1         |2023-06-23 |CRAN (R 4.4.1) |
 |tzdb              |0.5.0         |2025-03-15 |CRAN (R 4.4.1) |
 |usethis           |3.2.1         |2025-09-06 |CRAN (R 4.4.1) |
-|utf8              |1.2.6         |2025-06-08 |CRAN (R 4.4.1) |
 |uuid              |1.2-1         |2024-07-29 |CRAN (R 4.4.1) |
-|V8                |8.0.1         |2025-10-10 |CRAN (R 4.4.1) |
 |vctrs             |0.6.5         |2023-12-01 |CRAN (R 4.4.0) |
 |viridis           |0.6.5         |2024-01-29 |CRAN (R 4.4.0) |
 |viridisLite       |0.4.2         |2023-05-02 |CRAN (R 4.4.1) |
--- a/app_docker/app.R
+++ b/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
      )
--- a/app_docker/renv.lock
+++ b/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",
--- a/app_docker/translations/translation_da.csv
+++ b/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"
--- a/app_docker/translations/translation_de.csv
+++ b/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"
--- a/app_docker/translations/translation_sv.csv
+++ b/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"
--- a/app_docker/translations/translation_sw.csv
+++ b/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"
--- a/inst/apps/FreesearchR/app.R
+++ b/inst/apps/FreesearchR/app.R
@ -1,7 +1,7 @@


 ########
-#### Current file: /var/folders/9l/xbc19wxx0g79jdd2sf_0v291mhwh7f/T//RtmpT9sPX5/file6c8068b55910.R 
+#### Current file: /var/folders/9l/xbc19wxx0g79jdd2sf_0v291mhwh7f/T//RtmpftDBtp/file7bf313edd9e8.R 
 ########

 i18n_path <- system.file("translations", package = "FreesearchR")
@ -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
      )
--- a/inst/translations/translation_da.csv
+++ b/inst/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"
--- a/inst/translations/translation_de.csv
+++ b/inst/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"
--- a/inst/translations/translation_sv.csv
+++ b/inst/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"
--- a/inst/translations/translation_sw.csv
+++ b/inst/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"
--- a/man/create_baseline.Rd
+++ b/man/create_baseline.Rd
@ -9,6 +9,7 @@ create_baseline(
  ...,
  by.var,
  add.p = FALSE,
+  add.diff = FALSE,
  add.overall = FALSE,
  theme = c("jama", "lancet", "nejm", "qjecon"),
  detail_level = c("minimal", "extended")
--- a/renv.lock
+++ b/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",