ui on modify pane

This commit is contained in:
Andreas Gammelgaard Damsbo 2025-04-03 06:31:05 +02:00
commit 3e49868ff4
No known key found for this signature in database
6 changed files with 103 additions and 173 deletions

View file

@ -1 +1 @@
app_version <- function()'250402_1131'
app_version <- function()'250403_0630'

View file

@ -335,7 +335,7 @@ data_description <- function(data) {
p_complete <- n_complete/n
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."),
n,
n_var,
n_complete,

View file

@ -118,8 +118,8 @@ update_variables_server <- function(id,
output$data_info <- shiny::renderUI({
shiny::req(data_r())
data <- data_r()
sprintf(i18n("Data has %s observations and %s variables."), nrow(data), ncol(data))
data_description(data_r())
# sprintf(i18n("Data has %s observations and %s variables."), nrow(data), ncol(data))
})
variables_r <- shiny::reactive({