From 19f0c92dbccd8b043c0d1fb6cb7e02e3124626c1 Mon Sep 17 00:00:00 2001 From: Thomas Rushby <t.w.rushby@soton.ac.uk> Date: Tue, 6 Oct 2020 10:50:10 +0100 Subject: [PATCH] Add animation to slider. --- howTo/openGeogAPI/app3.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/howTo/openGeogAPI/app3.R b/howTo/openGeogAPI/app3.R index 8ebf189..d9ec1dc 100644 --- a/howTo/openGeogAPI/app3.R +++ b/howTo/openGeogAPI/app3.R @@ -168,7 +168,8 @@ ui <- fluidPage( wellPanel("Use slider to select year to view in panel below and mouse-over to view more detail"), sliderInput("yearSlider", label = "Year", min = 2005, max = 2018, value = 2018, step = 1, round = TRUE, - ticks = FALSE, width = "90%", sep = ""), + ticks = FALSE, width = "90%", sep = "", + animate = animationOptions(1200)), tabsetPanel( tabPanel("Authorities compared", plotOutput("plot_by_auth", height = "500px") -- GitLab