simplify shiny example in intro vignette