in_bounds ne contient que les codes postaux en vue

app.R

@@ -88,7 +88,7 @@ server <- function(input, output, session)
     bounds <- input$map_bounds
     latrng <- range(bounds$north, bounds$south)
     lngrng <- range(bounds$east, bounds$west)
-    communes[lats >= latrng[1] & lats <= latrng[2] & lngs >= lngrng[1] & lngs <= lngrng[2],]
+    communes[lats >= latrng[1] & lats <= latrng[2] & lngs >= lngrng[1] & lngs <= lngrng[2],]$Codepos
   })
 
   # Filter GHM
@@ -99,7 +99,7 @@ server <- function(input, output, session)
         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],
-               CP %in% in_bounds()$Codepos)
+               CP %in% in_bounds())
     } else
     {
       GHM %>%
@@ -107,7 +107,7 @@ server <- function(input, output, session)
                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],
-               CP %in% in_bounds()$Codepos)
+               CP %in% in_bounds())
     }
   })
 
@@ -116,7 +116,7 @@ server <- function(input, output, session)
     GHM %>%
       filter(Age <= input$slider_age[2] & Age >= input$slider_age[1], 
              date_entree <= input$slider_date[2] & date_sortie >= input$slider_date[1],
-             CP %in% in_bounds()$Codepos,
+             CP %in% in_bounds(),
              Sexe %in% input$check_sexe)
   })
 
@@ -140,14 +140,14 @@ server <- function(input, output, session)
       GHM %>%
         filter(Age <= input$slider_age[2] & Age >= input$slider_age[1], 
                date_entree <= input$slider_date[2] & date_sortie >= input$slider_date[1],
-               CP %in% in_bounds()$Codepos)
+               CP %in% in_bounds())
     } else
     {
       GHM %>%
         filter(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],
-               CP %in% in_bounds()$Codepos)
+               CP %in% in_bounds())
     }
   })
 
@@ -171,14 +171,14 @@ server <- function(input, output, session)
       GHM %>%
         filter(Sexe %in% input$check_sexe,
                date_entree <= input$slider_date[2] & date_sortie >= input$slider_date[1],
-               CP %in% in_bounds()$Codepos)  
+               CP %in% in_bounds())  
     } else
     {
       GHM %>%
         filter(Sexe %in% input$check_sexe,
                GHM %in% input$choice_ghm,
                date_entree <= input$slider_date[2] & date_sortie >= input$slider_date[1],
-               CP %in% in_bounds()$Codepos)
+               CP %in% in_bounds())
     }
   })
   output$plot_age <- renderPlot({