From 29bc0e0fc76e242cf0cc562ddb0fc5dae02a777c Mon Sep 17 00:00:00 2001 From: Maxime Wack Date: Mon, 6 Mar 2017 20:32:08 +0100 Subject: [PATCH] Calculs bornes widgets --- app.R | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/app.R b/app.R index 5945de1..46b9bd7 100644 --- a/app.R +++ b/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"),