Modified according to the lesson2

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