Compare commits
No commits in common. "f095bb0fc02633405ec49f50a0b90ebeaec89ffd" and "d46239f74416bb5a641f43a9ff5b3e8d5fed7ff8" have entirely different histories.
f095bb0fc0
...
d46239f744
@ -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)
|
||||||
|
|
||||||
|
BIN
Rplots.pdf
BIN
Rplots.pdf
Binary file not shown.
Binary file not shown.
Before Width: | Height: | Size: 434 KiB After Width: | Height: | Size: 412 KiB |
Loading…
x
Reference in New Issue
Block a user