Ne pas update la map en fonction de la visibilité (un peu plus fluide)

app.R

@@ -182,15 +182,15 @@ server <- function(input, output, session)
 
   # filtered GHM
   filteredData <- reactive({
-    req(input$check_sexe, input$slider_age, input$slider_date, in_bounds())
+    req(input$check_sexe, input$slider_age, input$slider_date) #, in_bounds())
 
     if(input$choice_ghm %>% is.null)
     {
       GHM %>%
         filter(Sexe %in% input$check_sexe,
                Age <= input$slider_age[2] & Age >= input$slider_age[1],
-               date_entree <= input$slider_date[2] & date_sortie >= input$slider_date[1],
-               Codepos %in% in_bounds()) %>%
+               # Codepos %in% in_bounds(),
+               date_entree <= input$slider_date[2] & date_sortie >= input$slider_date[1]) %>%
       count(Codepos)
     } else
     {
@@ -198,8 +198,8 @@ server <- function(input, output, session)
         filter(Sexe %in% input$check_sexe,
                Age <= input$slider_age[2] & Age >= input$slider_age[1],
                GHM %in% input$choice_ghm,
-               date_entree <= input$slider_date[2] & date_sortie >= input$slider_date[1],
-               Codepos %in% in_bounds()) %>%
+               # Codepos %in% in_bounds(),
+               date_entree <= input$slider_date[2] & date_sortie >= input$slider_date[1]) %>%
       count(Codepos)
     }
   })