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

fix: faster summary

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2026-03-11 14:45:56 +01:00
commit 0090651927
No known key found for this signature in database
1 changed files with 16 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

37
R/helpers.R
View file

@ -356,33 +356,28 @@ missing_fraction <- function(data) {
#' sample(c(1:8, NA), 20, TRUE) #' sample(c(1:8, NA), 20, TRUE)
#' ) |> data_description() #' ) |> data_description()
data_description <- function(data, data_text = "Data") { data_description <- function(data, data_text = "Data") {
data <- if (shiny::is.reactive(data)) # Resolve reactive once
data() if (shiny::is.reactive(data)) data <- data()
else
data # Early return if null
if (is.null(data)) return(i18n$t("No data present."))
n <- nrow(data) n <- nrow(data)
# Early return if empty
if (n == 0L) return(i18n$t("No data present."))
n_var <- ncol(data) n_var <- ncol(data)
n_complete <- sum(complete.cases(data))
# Faster complete.cases alternative using rowSums on NA matrix
n_complete <- n - sum(rowSums(is.na(data)) > 0L)
p_complete <- signif(100 * n_complete / n, 3) p_complete <- signif(100 * n_complete / n, 3)
if (is.null(data)) { glue::glue(
i18n$t("No data present.") i18n$t(
} else { "{data_text} has {n} observations and {n_var} variables, with {n_complete} ({p_complete} %) complete cases."
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
# )
} }