Update final_script.R

Minor change to reading in of data to make download conditional on data already existing