mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2026-06-19 04:27:30 +02:00
ui on modify pane
This commit is contained in:
parent
e3ac3bc66e
commit
3e49868ff4
6 changed files with 103 additions and 173 deletions
|
|
@ -1 +1 @@
|
|||
app_version <- function()'250402_1131'
|
||||
app_version <- function()'250403_0630'
|
||||
|
|
|
|||
|
|
@ -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,
|
||||
|
|
|
|||
|
|
@ -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({
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue