Create a report chunk for food indicators

Usage

report_op_food(format = "html")

Arguments

format: Either html, docx, or odt. Defaults to html.

Value

A reporting chunk for food indicators

Author

Ernest Guevarra

Examples

  report_op_food()
#> 
#> # Diet
#> ## Meal frequency
#> 
#> ```{r mfPlot}
#> oldr::chart_mf(x = oldr::create_op_all(svy = svy), save_chart = FALSE)
#> ```
#> 
#> ```{r mfTable}
#> knitr::kable(x = resultsDF[20, ],
#>   caption = 'Meal frequency',
#>   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))
#> ```
#> 
#> ## Dietary diversity
#> ```{r ddsPlot}
#> oldr::chart_dds(x = oldr::create_op_all(svy = svy), save_chart = FALSE)
#> ```
#> 
#> ```{r ddsTable}
#> knitr::kable(x = resultsDF[21:32, ],
#>   caption = 'Dietary diversity',
#>   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))
#> ```
#> 
#> ## Nutrient intake
#> ```{r nutrientTable}
#> knitr::kable(x = resultsDF[33:47, ],
#>   caption = 'Nutrient intake',
#>   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))
#> ```