updated shiny.R for dynamic horizon plot bands