andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-12-16 09:32:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: missings table now features bold significant p-values for easier overview

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-10-02 11:16:17 +02:00
parent 9c1d6ed630
commit adcd404813
No known key found for this signature in database
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
R/missings-module.R
View file

@ -59,16 +59,19 @@ data_missings_server <- function(id,
shiny::req(variabler) shiny::req(variabler)
if (is.null(variabler()) || variabler() == "" || !variabler() %in% names(datar())) { if (is.null(variabler()) || variabler() == "" || !variabler() %in% names(datar())) {
tbl <- rv$data()
if (anyNA(datar())){ if (anyNA(datar())){
title <- i18n$t("No variable chosen for analysis") title <- i18n$t("No variable chosen for analysis")
} else { } else {
title <- i18n$t("No missing observations") title <- i18n$t("No missing observations")
} }
} else { } else {
tbl <- rv$data()|>
gtsummary::bold_p()
title <- glue::glue(i18n$t("Missing vs non-missing observations in the variable **'{variabler()}'**")) title <- glue::glue(i18n$t("Missing vs non-missing observations in the variable **'{variabler()}'**"))
} }
out <- rv$data() |> out <- tbl |>
gtsummary::as_gt() |> gtsummary::as_gt() |>
gt::tab_header(title = gt::md(title)) gt::tab_header(title = gt::md(title))