diff --git a/howTo/openGeogAPI/app3.R b/howTo/openGeogAPI/app3.R
index 8ebf189251febb78a9eba126a91a74e04019b20c..d9ec1dcc075db7783b599e174c3851ceb87a1f10 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")