Create server.R

Work In Progress