shinyapp modified