Update mod_analysis_variable_selection.R

priism-center · Sep 1, 2024 · a699f49 · a699f49
1 parent 2a10bf6
commit a699f49
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/thinkCausal/R/mod_analysis_variable_selection.R b/thinkCausal/R/mod_analysis_variable_selection.R
@@ -287,14 +287,16 @@ mod_analysis_variable_selection_server <- function(id, store){
     observeEvent(input$analysis_select_button_columnAssignSave, {
       req(store$analysis_data_uploaded_df)
       pass_variable <- reactiveVal(length(input$analysis_select_dragdrop_avalable) == 0)
+      browser()
       # check that all predictors are included, if not launch popup
-      if (isFALSE(pass_variable()) & isTRUE(store$analysis_design == "Observational Study (Treatment not Randomized)")) {
+      if (isFALSE(pass_variable()) & isTRUE(store$analysis_select_design == "Observational Study (Treatment not Randomized)")) {
         show_popup_variable_selection_warning(x = length(input$analysis_select_dragdrop_avalable),
                                               session, ns = ns)
 
-      }
+        validate(need(pass_variable(), ''))
 
-      #validate(need(pass_variable(), ''))
+      }
+
       check_variable_assignment()
       # move to next page
       bs4Dash::updateTabItems(store$session_global, inputId = 'sidebar', selected = 'analysis_verify')