applies suspendWhenHidden = FALSE to all renderUIs to containers over…

… selector

selectors is contained in 3 different renderUIs, selector, ui and dressing room

R/dressing_room.R

@@ -1246,8 +1246,11 @@ app_creator_feedback_server <- function(id, warning_messages, error_messages, ui
         if (length(error_messages()) == 0) res <- append(res, list(ui))
         return(res)
       })
+      shiny::outputOptions(output, "ui", suspendWhenHidden = FALSE)
     }
   )
 
+
+
   return(module)
 }

R/mod_patient_profile.R

@@ -85,19 +85,25 @@ mod_patient_profile_server <- function(id, subject_level_dataset, extra_datasets
             )
           )
         }
+        message("PAPO UI")
         return(res)
       })
 
-      output[["selector"]] <- shiny::renderUI({
+      shiny::outputOptions(output, "ui", suspendWhenHidden = FALSE)
+
+      output[["selector"]] <- shiny::renderUI({        
         subject_level_dataset <- subject_level_dataset()
         shiny::req(subject_level_dataset, cancelOutput = TRUE)
+        message("PAPO SELECTOR")
         shiny::selectInput(ns("patient_selector"),
           label = "Select Patient ID:",
           selected = input[["patient_selector"]],
           choices = unique(subject_level_dataset[[subjid_var]])
         )
       })
 
+      shiny::outputOptions(output, "selector", suspendWhenHidden = FALSE)
+
       # change selected patient based on sender_ids
       if (!is.null(sender_ids)) {
         lapply(sender_ids, function(x) {