From 0036995526548da8377e23f98605d0ea59821f82 Mon Sep 17 00:00:00 2001
From: Luis Moris Fernandez <luis.moris.fernandez@gmail.com>
Date: Tue, 13 Aug 2024 12:21:11 +0200
Subject: [PATCH] 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       | 3 +++
 R/mod_patient_profile.R | 8 +++++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/R/dressing_room.R b/R/dressing_room.R
index ba5e20b..a1e1526 100644
--- a/R/dressing_room.R
+++ b/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)
 }
diff --git a/R/mod_patient_profile.R b/R/mod_patient_profile.R
index da27b73..f4e8235 100644
--- a/R/mod_patient_profile.R
+++ b/R/mod_patient_profile.R
@@ -85,12 +85,16 @@ 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"]],
@@ -98,6 +102,8 @@ mod_patient_profile_server <- function(id, subject_level_dataset, extra_datasets
         )
       })
 
+      shiny::outputOptions(output, "selector", suspendWhenHidden = FALSE)
+
       # change selected patient based on sender_ids
       if (!is.null(sender_ids)) {
         lapply(sender_ids, function(x) {