Update upload.R

sever change