|
|
@@ -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) |
|
|
|
{ |
|
|
|