Use R get the temp data from the website