From adcd4048137c954c8aad939868cdae4b28067ce3 Mon Sep 17 00:00:00 2001 From: Andreas Gammelgaard Damsbo Date: Thu, 2 Oct 2025 11:16:17 +0200 Subject: [PATCH] feat: missings table now features bold significant p-values for easier overview --- R/missings-module.R | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/R/missings-module.R b/R/missings-module.R index 562ae22c..7513185b 100644 --- a/R/missings-module.R +++ b/R/missings-module.R @@ -59,16 +59,19 @@ data_missings_server <- function(id, shiny::req(variabler) if (is.null(variabler()) || variabler() == "" || !variabler() %in% names(datar())) { + tbl <- rv$data() if (anyNA(datar())){ title <- i18n$t("No variable chosen for analysis") } else { title <- i18n$t("No missing observations") } } else { + tbl <- rv$data()|> + gtsummary::bold_p() title <- glue::glue(i18n$t("Missing vs non-missing observations in the variable **'{variabler()}'**")) } - out <- rv$data() |> + out <- tbl |> gtsummary::as_gt() |> gt::tab_header(title = gt::md(title))