library(dplyr) library(ggplot2)
Reading in the rds files generated from ebola-outputs repo and dumping them as csv. Will move this to ebola-outputs later.
incid_by_zone <- here::here("data/CaseCounts/drc", "incidence_by_zone.rds") %>% readRDS() readr::write_csv(incid_by_zone$c, here::here("data/CaseCounts/drc", "21-May-2018.csv"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.