Upload of data and R script