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")