uploading r script