knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(betterCallSal)
data <- updateCovid("06-10-2020") #View(data)
deaths_map <- drawCovidMap("06-10-2020","Deaths") deaths_map confirmed_map <- drawCovidMap("06-10-2020","Confirmed") confirmed_map
deaths_plot_1 <- drawCovidPlot(c("05-13-2020","06-10-2020"),"US") deaths_plot_1 confirmed_plot_2 <- drawCovidPlot(c("05-13-2020","10-01-2020"),"China") confirmed_plot_2
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.