Create server.R

create server.R