Compare commits

..

No commits in common. "f095bb0fc02633405ec49f50a0b90ebeaec89ffd" and "d46239f74416bb5a641f43a9ff5b3e8d5fed7ff8" have entirely different histories.

3 changed files with 2 additions and 2 deletions

View File

@ -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'), 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')) destfile = paste0('data/us-counties-',year,'.csv'))
us_county_data[[year]] <- read_csv(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 { } else {
print("data is current") print("data is current")
us_county_data[[year]] <- read_csv(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")
us_county_data <- bind_rows(us_county_data) us_county_data <- bind_rows(us_county_data)
maxdate <- max(us_county_data$date) maxdate <- max(us_county_data$date)

Binary file not shown.

Binary file not shown.

Before

Width:  |  Height:  |  Size: 434 KiB

After

Width:  |  Height:  |  Size: 412 KiB