Added a test app
Working on shiny lecture