adding my course project shiny R code