Creates a shiny app that has a moving slider