Using a sliderInput control in Shiny with x-axis for ggplot: How to Create an Interactive Shiny Application