UI code

app.R

@@ -49,15 +49,25 @@ 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)
 
-                                    # sliderInput("slider_age", "Age", min(GHM$Age), max(GHM$Age), value = c(min(GHM$Age), max(GHM$Age))),
-                                    # Sexe
-                                    # plotlyOutput("plot_sexe"),
-                                    checkboxGroupInput("check_sexe", "Sexe", c("Homme", "Femme"), c("Homme", "Femme"))
-                                    ),
-                      absolutePanel(bottom = 10, left = "5%", width = "90%",
-                                    sliderInput("slider_date", "Dates", width = "100%", min = as.Date("2005-01-01"), max = as.Date("2017-01-01"), value = c(as.Date("2016-01-01"), as.Date("2017-01-01")), animate = animationOptions(interval = 0))
-                                    )
-                      )
+# UI ----
+ui <- bootstrapPage(
+                    tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
+                    leafletOutput("map", width = "100%", height = "100%"),
+                    absolutePanel(top = 10, right = 10, width = "20%",
+                                  # GHM
+                                  plotOutput("plot_ghm", height = 200),
+                                  selectizeInput("choice_ghm", "GHM", racine, multiple = T),
+                                  # Age
+                                  plotOutput("plot_age", height = 200),
+                                  sliderInput("slider_age", "Age", min_age, max_age, value = c(min_age, max_age)),
+                                  # Sexe
+                                  plotOutput("plot_sexe", height = 200),
+                                  checkboxGroupInput("check_sexe", "Sexe", c("Homme", "Femme"), c("Homme", "Femme"))
+                                  ),
+                    absolutePanel(bottom = 10, left = "2.5%", width = "75%",
+                                  sliderInput("slider_date", "Dates", width = "100%", min = min_date, max = max_date, value = c(max_date - years(1), max_date), animate = animationOptions(interval = 0))
+                                  )
+                    )
 
   server <- function(input, output, session)
   {