uploaded server.R file