Create server.R

Initial commit