andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 04:27:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

chore: translation updates
Some checks are pending
pkgdown.yaml / pkgdown (push) Waiting to run
Details

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-09-10 14:56:43 +02:00
commit 013fc19d04
No known key found for this signature in database
6 changed files with 83 additions and 73 deletions
Download patch file Download diff file Expand all files Collapse all files

19
R/helpers.R
View file

@ -361,16 +361,17 @@ data_description <- function(data, data_text = "Data") {
n <- nrow(data)
n_var <- ncol(data)
n_complete <- sum(complete.cases(data))
p_complete <- n_complete / n
p_complete <- signif(100 * n_complete / n, 3)
sprintf(
"%s has %s observations and %s variables, with %s (%s%%) complete cases.",
data_text,
n,
n_var,
n_complete,
signif(100 * p_complete, 3)
)
glue::glue(i18n$t("{data_text} has {n} observations and {n_var} variables, with {n_complete} ({p_complete} %) complete cases."))
# sprintf(
# "%s has %s observations and %s variables, with %s (%s%%) complete cases.",
# data_text,
# n,
# n_var,
# n_complete,
# p_complete
# )
}