Create a report chunk for income
Examples
report_op_income()
#>
#> # Income
#>
#> ```{r incomePlot}
#> oldr::chart_income(x.male = create_op_all(svy = svy, gender = 'm'),
#> x.female = create_op_all(svy = svy, gender = 'f'), save_chart = FALSE)
#> ```
#>
#> ```{r incomeTable}
#> knitr::kable(x = resultsDF[117:126, ],
#> caption = 'Income',
#> 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))
#> ```