new version

inst/apps/FreesearchR/app.R

@@ -1,7 +1,7 @@
 
 
 ########
-#### Current file: /var/folders/9l/xbc19wxx0g79jdd2sf_0v291mhwh7f/T//RtmpvRkTPP/file5ce319d75524.R 
+#### Current file: /var/folders/9l/xbc19wxx0g79jdd2sf_0v291mhwh7f/T//Rtmpp0JgLn/file73e1e257b26.R 
 ########
 
 i18n_path <- system.file("translations", package = "FreesearchR")
@@ -6050,7 +6050,7 @@ data_missings_ui <- function(id, ...) {
             label = i18n$t("Evaluate"),
             width = "100%",
             icon = shiny::icon("calculator"),
-            disabled = FALSE
+            disabled = TRUE
           )
         ),
         do.call(bslib::accordion_panel, c(
@@ -6100,19 +6100,25 @@ data_missings_server <- function(id, data, max_level = 20, ...) {
       )
 
       output$missings <- shiny::reactive({
-        shiny::req(data())
-        any(is.na(data()))
+        # shiny::req(data())
+        any(is.na(datar()))
       })
       shiny::outputOptions(output, "missings", suspendWhenHidden = FALSE)
 
-      observe({
-        shiny::req(data())
-        if (!any(is.na(data()))) {
-          rv$feedback <- info_alert
-        } else {
-          rv$feedback <- NULL
-        }
-      })
+      shiny::observeEvent(list(datar(), input$missings_method, input$missings_var),
+                   {
+                     # shiny::req(data())
+                     # browser()
+                     if (!any(is.na(datar()))) {
+                       rv$feedback <- info_alert
+                       shiny::updateActionButton(inputId = "act_miss", disabled = TRUE)
+                       rv$table <- NULL
+                       output$missings_table <- gt::render_gt({ NULL })
+                     } else {
+                       rv$feedback <- NULL
+                       shiny::updateActionButton(inputId = "act_miss", disabled = FALSE)
+                     }
+                   },ignoreInit = TRUE)
 
 
       output$feedback <- renderUI(rv$feedback)
@@ -6123,7 +6129,7 @@ data_missings_server <- function(id, data, max_level = 20, ...) {
       ## Direct table export would be nice
 
       shiny::observe(output$missings_method <- shiny::renderUI({
-        shiny::req(data())
+        shiny::req(datar())
         vectorSelectInput(
           inputId = ns("missings_method"),
           label = i18n$t("Analysis method for missingness overview"),
@@ -6143,7 +6149,7 @@ data_missings_server <- function(id, data, max_level = 20, ...) {
           # browser()
           if (input$missings_method == "predictors") {
             label <- i18n$t("Select a variable for grouped overview")
-            df <- data_type_filter(data(), type = c("categorical", "dichotomous"))
+            df <- data_type_filter(datar(), type = c("categorical", "dichotomous"))
             col_subset <- c("none", names(df))
           } else {
             label <- i18n$t("Select outcome variable for overview")

inst/translations/translation_da.csv

@@ -316,7 +316,6 @@
 "Reorder factor levels","Omarranger niveauer"
 "Modify factor levels","Modify factor levels"
 "Reorder or rename the levels of factor/categorical variables.","Reorder or rename the levels of factor/categorical variables."
-"Start by loading data.","Start by loading data."
 "Maximum number of observations:","Maximum number of observations:"
 "setting to 0 includes all","setting to 0 includes all"
 "Select a dataset from your environment or sample dataset from a package.","Select a dataset from your environment or sample dataset from a package."
@@ -327,3 +326,4 @@
 "Click to see data","Click to see data"
 "No data present.","No data present."
 "You have provided a complete dataset with no missing values.","You have provided a complete dataset with no missing values."
+"Start by loading data.","Start by loading data."

inst/translations/translation_sw.csv

@@ -316,7 +316,6 @@
 "Reorder factor levels","Reorder factor levels"
 "Modify factor levels","Modify factor levels"
 "Reorder or rename the levels of factor/categorical variables.","Reorder or rename the levels of factor/categorical variables."
-"Start by loading data.","Start by loading data."
 "Maximum number of observations:","Maximum number of observations:"
 "setting to 0 includes all","setting to 0 includes all"
 "Select a dataset from your environment or sample dataset from a package.","Select a dataset from your environment or sample dataset from a package."
@@ -327,3 +326,4 @@
 "Click to see data","Click to see data"
 "No data present.","No data present."
 "You have provided a complete dataset with no missing values.","You have provided a complete dataset with no missing values."
+"Start by loading data.","Start by loading data."