Calculs bornes widgets

app.R

@@ -38,18 +38,17 @@ communes@data %>%
 
 communes <- communes[!is.na(communes$Codepos),]
 
-  lngs <- communes@polygons %>% map(~slot(.x, "labpt")) %>% map_dbl(1)
-  lats <- communes@polygons %>% map(~slot(.x, "labpt")) %>% map_dbl(2)
+rm(insee)
+
+# long/lat de chaque commune ----
+
+lngs <- communes@polygons %>% map(~slot(.x, "labpt")) %>% map_dbl(1)
+lats <- communes@polygons %>% map(~slot(.x, "labpt")) %>% map_dbl(2)
+min_age <- GHM$Age %>% min(na.rm = T)
+max_age <- GHM$Age %>% max(na.rm = T)
+min_date <- GHM$date_entree %>% min(na.rm =T)
+max_date <- GHM$date_sortie %>% max(na.rm =T)
 
-  ui <- bootstrapPage(
-                      tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
-                      leafletOutput("map", width = "100%", height = "100%"),
-                      absolutePanel(top = 10, right = 10,
-                                    # GHM
-                                    # plotlyOutput("plot_ghm"),
-                                    # selectizeInput("choice_ghm", "GHM", GHM$GHM %>% factor %>% levels, multiple = T),
-                                    # Age
-                                    # plotlyOutput("plot_age"),
                                     # sliderInput("slider_age", "Age", min(GHM$Age), max(GHM$Age), value = c(min(GHM$Age), max(GHM$Age))),
                                     # Sexe
                                     # plotlyOutput("plot_sexe"),