Added shiny_demo function.