diff --git a/COVID_new.R b/COVID_new.R index 602b8bd..d6f780d 100644 --- a/COVID_new.R +++ b/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) diff --git a/Rplots.pdf b/Rplots.pdf new file mode 100644 index 0000000..021a55e Binary files /dev/null and b/Rplots.pdf differ diff --git a/figures/select_active_cases.png b/figures/select_active_cases.png index c27994c..712ea98 100644 Binary files a/figures/select_active_cases.png and b/figures/select_active_cases.png differ