Create server.R

This is the server.R script to run this as a gui shiny application.