COVID_new.R

@@ -25,14 +25,14 @@ for(year in 2020:year(Sys.Date())){
       download.file(url = paste0('https://github.com/nytimes/covid-19-data/raw/master/rolling-averages/us-counties-',year,'.csv'),
                     destfile = paste0('data/us-counties-',year,'.csv'))
       us_county_data[[year]] <- read_csv(paste0('data/us-counties-',year,'.csv'))
+      downloaded_dttm <- Sys.time()
+      save(downloaded_dttm, file = "data_download_time.Rda")
     } else {
       print("data is current")
       us_county_data[[year]] <- read_csv(paste0('data/us-counties-',year,'.csv'))
     }
   }
 }
-downloaded_dttm <- Sys.time()
-save(downloaded_dttm, file = "data_download_time.Rda")
 us_county_data <- bind_rows(us_county_data)
 maxdate <- max(us_county_data$date)