develop data products project part 1, shiny, server.R and ui.R