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