Understanding the Issue with Shiny's SliderInput in R

Creating a Variable Inside `observeEvent` Function in Shiny that Affects the Whole Program