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

fixed data_description bug
Some checks failed
pkgdown.yaml / pkgdown (push) Has been cancelled
Details

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-03-26 12:07:28 +01:00
commit 0feee4f02b
No known key found for this signature in database
4 changed files with 23 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
R/app_version.R
View file

@ -1 +1 @@
app_version <- function()'250324_1432'
app_version <- function()'250326_1206'

13
R/helpers.R
View file

@ -329,11 +329,16 @@ missing_fraction <- function(data) {
data_description <- function(data) {
data <- if (shiny::is.reactive(data)) data() else data
n <- nrow(data)
n_var <- ncol(data)
n_complete <- sum(complete.cases(data))
p_complete <- n_complete/n
sprintf(
i18n("Data has %s observations and %s variables, with %s (%s%%) complete cases"),
nrow(data),
ncol(data),
sum(complete.cases(data)),
signif(100 * (1 - missing_fraction(data)), 3)
n,
n_var,
n_complete,
signif(100 * p_complete, 3)
)
}