revise shiny example for slides