Source code for the Shiny part of the assignment