Update server.R

Major.