Create a report chunk for water, sanitation and hygiene
Examples
report_op_wash()
#>
#> # Water, sanitation, and hygiene
#>
#> ```{r washPlot}
#> oldr::chart_wash(x = create_op_all(svy = svy), save_chart = FALSE)
#> ```
#>
#> ```{r washTable}
#> knitr::kable(x = resultsDF[127:130, ],
#> caption = 'Water, sanitation, and hygiene',
#> booktabs = TRUE,
#> digits = 2,
#> col.names = c('Indicator', 'Type', 'Est', '95% LCL', '95% UCL', 'Est', '95% LCL', '95% UCL', 'Est', '95% LCL', '95% UCL')) %>%
#> kableExtra::kable_styling(bootstrap_options = c('striped')) %>%
#> kableExtra::add_header_above(c(' ' = 2, 'ALL' = 3, 'MALES' = 3, 'FEMALES' = 3))
#> ```