andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-12-15 17:12:09 +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)
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))