updated the shiny app example