Update upload.R