Create server.R

adding server.R