Updated server.R