server.R

This is server.R for shiny app