Shiny App code for capstone project