modify server.R