upload png and updated R script