Increase Shiny slider animation interval from 3000ms to 5000ms

2026-01-14 15:54:13 +01:00 · 2026-01-04 17:32:05 +01:00
parent f326ca42e0
commit acf1aa82c4
1 changed files with 1 additions and 1 deletions
--- a/Visualisation/Project/app.R
+++ b/Visualisation/Project/app.R
@@ -86,7 +86,7 @@ ui <- shinydashboard::dashboardPage(
        value = max(tb_clustered$year),
        step = 1,
        sep = "",
-        animate = animationOptions(interval = 3000, loop = FALSE)
+        animate = animationOptions(interval = 5000, loop = FALSE)
      )
    )
  ),