Shiny app Assignment