Create server.R

server