|
|
@@ -66,7 +66,7 @@ ui <- bootstrapPage( |
|
|
|
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)) |
|
|
|
sliderInput("slider_date", "Dates", width = "100%", step = 30, min = min_date, max = max_date, value = c(max_date - years(1), max_date), animate = animationOptions(interval = 1000)) |
|
|
|
) |
|
|
|
) |
|
|
|
|
|
|
|