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

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
parent e9422a418b
commit 0feee4f02b
No known key found for this signature in database
4 changed files with 23 additions and 13 deletions
Show stats 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_description <- function(data) {
data <- if (shiny::is.reactive(data)) data() else 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( sprintf(
i18n("Data has %s observations and %s variables, with %s (%s%%) complete cases"), i18n("Data has %s observations and %s variables, with %s (%s%%) complete cases"),
nrow(data), n,
ncol(data), n_var,
sum(complete.cases(data)), n_complete,
signif(100 * (1 - missing_fraction(data)), 3) signif(100 * p_complete, 3)
) )
} }

19
inst/apps/FreesearchR/app.R
View file

@ -10,7 +10,7 @@
#### Current file: R//app_version.R #### Current file: R//app_version.R
######## ########
app_version <- function()'250324_1432' app_version <- function()'250326_1206'
######## ########
@ -2817,12 +2817,17 @@ missing_fraction <- function(data) {
data_description <- function(data) { data_description <- function(data) {
data <- if (shiny::is.reactive(data)) data() else 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( sprintf(
i18n("Data has %s observations and %s variables, with %s (%s%%) complete cases"), i18n("Data has %s observations and %s variables, with %s (%s%%) complete cases"),
nrow(data), n,
ncol(data), n_var,
sum(complete.cases(data)), n_complete,
signif(100 * (1 - missing_fraction(data)), 3) signif(100 * p_complete, 3)
) )
} }
@ -3474,7 +3479,7 @@ plot_box <- function(data, x, y, z = NULL) {
#' #'
#' @name data-plots #' @name data-plots
#' #'
#' @returns #' @returns ggplot object
#' @export #' @export
#' #'
#' @examples #' @examples
@ -5444,7 +5449,7 @@ limit_log <- function(data, fun, ...) {
#' #'
#' @param data numeric vector #' @param data numeric vector
#' #'
#' @returns #' @returns numeric vector
#' @export #' @export
#' #'
#' @examples #' @examples

2
inst/apps/FreesearchR/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf
View file

@ -5,6 +5,6 @@ account: agdamsbo
server: shinyapps.io server: shinyapps.io
hostUrl: https://api.shinyapps.io/v1 hostUrl: https://api.shinyapps.io/v1
appId: 13611288 appId: 13611288
bundleId: 9994253 bundleId: 9994404
url: https://agdamsbo.shinyapps.io/freesearcheR/ url: https://agdamsbo.shinyapps.io/freesearcheR/
version: 1 version: 1