ben/COVID
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

updated figures

Browse Source 
Signed-off-by: Ben Varick <ben@dendroalsia.net>
This commit is contained in:
Ben Varick 2023-03-07 10:39:58 -08:00
parent 308eeeda22
commit f095bb0fc0
Signed by: ben
SSH Key Fingerprint: SHA256:jWnpFDAcacYM5aPFpYRqlsamlDyKNpSj3jj+k4ojtUo
3 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
COVID_new.R
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)

BIN
Rplots.pdf Normal file
View File

Binary file not shown.

BIN
figures/select_active_cases.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 412 KiB

After

Width:  |  Height:  |  Size: 434 KiB