---
title: "load-filter-view-epidata"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{load-filter-view-epidata}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

```{r setup, include=FALSE}
library(epireview)
```

```{r}
ebola <- load_epidata('ebola')
params <- ebola[["params"]]
params <- filter_cols(params, "article_qa_score", funs = ">", vals = "50")
forest_plot_rt(params, col_by = "population_country", shape_by = "parameter_value_type")

forest_plot_r0(params, col_by = "population_country", shape_by = "parameter_value_type")

```