yesterday_us <- us %>% 
  rename(cases = us_cases) %>% 
  rename(deaths = us_deaths) %>% 
  filter(date >= Sys.Week()) 

jhu_world <- jhu %>% 
  group_by(date) %>% 
  summarize(cases = sum(cases), 
            deaths = sum(deaths), 
            active = sum(active), 
            recovered = sum(recovered))

yesterday_jhu_world <- jhu_world %>% filter(date >= Sys.Week())
include_graphics('https://images.newscientist.com/wp-content/uploads/2020/02/11165812/c0481846-wuhan_novel_coronavirus_illustration-spl.jpg')

Current Data in the USA

Below is a table of current data from the last week in the US using New York Times data.

kable(yesterday_us)
date cases deaths
2020-08-07 4950653 160977
2020-08-08 5005850 161942
2020-08-09 5054208 162481
2020-08-10 5101333 163018
2020-08-11 5154648 164468
2020-08-12 5208835 165946
2020-08-13 5262791 167165

Current Data for the World

Below is a table of current data from the last week for the whole world using JHU data.

kable(yesterday_jhu_world)
date cases deaths active recovered
2020-08-07 124620 5188 12992 106440
2020-08-08 125293 5207 12967 107119
2020-08-09 125887 5230 13353 107304
2020-08-10 126519 5252 13513 107754
2020-08-11 127179 5278 13602 108299
2020-08-12 127844 5292 13473 109079
2020-08-13 128584 5311 13615 109658 



update()
## [1] "Last updated: Aug 14 2020"

© Copyright Kyle Tolliver, 2020