Modified app according to the lesson 5 Turn 1

http://shiny.rstudio.com/tutorial/lesson5/