change shiny app example