|
@@ -38,18 +38,17 @@ communes@data %>% |
|
|
|
|
|
|
|
|
communes <- communes[!is.na(communes$Codepos),] |
|
|
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))), |
|
|
# sliderInput("slider_age", "Age", min(GHM$Age), max(GHM$Age), value = c(min(GHM$Age), max(GHM$Age))), |
|
|
# Sexe |
|
|
# Sexe |
|
|
# plotlyOutput("plot_sexe"), |
|
|
# plotlyOutput("plot_sexe"), |
|
|