diff --git a/app.R b/app.R index 625d46a..04477b6 100644 --- a/app.R +++ b/app.R @@ -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%", step = 30, min = min_date, max = max_date, value = c(max_date - years(1), max_date), animate = animationOptions(interval = 1000)) + sliderInput("slider_date", "Dates", width = "100%", min = min_date, max = max_date, value = c(max_date - years(1), max_date)) ) )