Modify plot1.R to use return value of download function