In annecori/mRIIDSprocessData: Epidemiological forcasting using real-time data

library(dplyr)
library(magrittr)
library(stringr)
library(ggplot2)
library(tabulizer)

Read in the sitrep

case_counts <- here::here("data/CaseCounts/drc", "as_of_17_may.pdf") %>%
    extract_tables(.)

case_counts <- rbind(case_counts[[1]], case_counts[[2]])

Useful columns and rows

The only thing we need right now are the total number of cases. Will hard-code now; worry about it later.

idx <- which(case_counts[ ,1] == "Total des décès")
as.data.frame(case_counts[c(1, idx), ]) %>%
    readr::write_csv(path = here::here("data/CaseCounts/drc", "as_of_17_may.csv"))

annecori/mRIIDSprocessData documentation built on May 29, 2019, 1:16 p.m.