---
date: "Report Last Run: `r Sys.time()`"
params:
financers: OCP
years: 2024
dev: TRUE
---
{{< include ../_quarto.qmd >}}
---
title: "Epicentre Activities"
subtitle: "`r params$financers`, `r params$years`"
---
```{r, Analyse}
# params <- list(financers = 'OCP', years = 2024L)
rc_data <- rcGetData()
rc_data_query <- queryRCData(rc_data, financers = params$financers, years = params$years)
projects <- rc_data_query$projects |>
dplyr::summarize(
n = dplyr::n(),
edp = as.integer(sum(prj_days_forecast, na.rm = TRUE)),
edr = as.integer(sum(prj_days_actual, na.rm = TRUE))
)
```
# All Projects
`r sprintf('N = <b>%s</b> | EDp = <b>%s</b> | EDr = <b>%s</b>\n\n', sum(projects$n), sum(projects$edp[1]), sum(projects$edr[1]))`
::: {.panel-tabset onclick="resizeCharts(this)"}
### By Type
```{r, All Type 1}
#| layout-ncol: 2
getChartBarHorizontal(rc_data = rc_data_query, by = 'Type 1')
getChartBarHorizontal(rc_data = rc_data_query, by = 'Type 1', days = TRUE)
```
### By Disease
```{r, Disease (Primary)}
#| layout-ncol: 2
getChartBarHorizontal(rc_data = rc_data_query, by = 'Disease (Primary)')
getChartBarHorizontal(rc_data = rc_data_query, by = 'Disease (Primary)', days = TRUE, sort_by = 'Actual')
```
### By Country
```{r, Country (Primary)}
#| layout-ncol: 2
getChartBarHorizontal(rc_data = rc_data_query, by = 'Country (Primary)')
getChartBarHorizontal(rc_data = rc_data_query, by = 'Country (Primary)', days = TRUE)
```
<!-- ### By Budget -->
```{r}
#| layout-ncol: 2
# getChartBarHorizontal(rc_data = rc_data_query, by = 'Budget')
# getChartBarHorizontal(rc_data = rc_data_query, by = 'Budget', days = TRUE)
```
:::
# Projects by Type of Activities
```{r, By Activity}
#| output: "asis"
projects_by_type <- rc_data_query$projects |>
dplyr::select(prj_id, prj_type_wd_1, prj_days_forecast, prj_days_actual) |>
dplyr::filter(prj_type_wd_1 != 'NS') |>
dplyr::group_by(prj_id, prj_type_wd_1) |>
dplyr::summarize(
edp = as.integer(sum(prj_days_forecast, na.rm = TRUE)),
edr = as.integer(sum(prj_days_actual, na.rm = TRUE))
) |>
dplyr::ungroup() |>
dplyr::group_by(prj_type_wd_1) |>
dplyr::summarize(
n = dplyr::n(),
edp = as.integer(sum(edp, na.rm = TRUE)),
edr = as.integer(sum(edr, na.rm = TRUE))
) |>
dplyr::ungroup() |>
dplyr::filter(n > 0L) |>
dplyr::mutate(
prj_type_label = getCodeLabels(codes_type_wd_1, prj_type_wd_1, type = 'label_short')
)
for (i in seq_len(nrow(projects_by_type))) {
cat(sprintf('## %s\n\n', projects_by_type$prj_type_label[i]))
cat(sprintf('N = <b>%s</b> | EDp = <b>%s</b> | EDr = <b>%s</b>\n\n', projects_by_type$n[i], projects_by_type$edp[i], projects_by_type$edr[i]))
cat('::: {.panel-tabset onclick="resizeCharts(this)"}\n\n')
cat('### By Type\n\n')
cat('::: {.cell layout-ncol="2"}\n\n')
cat('::: {.cell-output-display}\n\n')
cat(knitr::knit_print(getChartBarHorizontal(rc_data = rc_data_query, by = 'Type 2', type = projects_by_type$prj_type_wd_1[i])))
cat(':::\n\n')
cat('::: {.cell-output-display}\n\n')
cat(knitr::knit_print(getChartBarHorizontal(rc_data = rc_data_query, by = 'Type 2', type = projects_by_type$prj_type_wd_1[i], days = TRUE)))
cat(':::\n\n')
cat(':::\n\n')
cat('### By Disease\n\n')
cat('::: {.cell layout-ncol="2"}\n\n')
cat('::: {.cell-output-display}\n\n')
cat(knitr::knit_print(getChartBarHorizontal(rc_data = rc_data_query, by = 'Disease (Primary)', type = projects_by_type$prj_type_wd_1[i])))
cat(':::\n\n')
cat('::: {.cell-output-display}\n\n')
cat(knitr::knit_print(getChartBarHorizontal(rc_data = rc_data_query, by = 'Disease (Primary)', type = projects_by_type$prj_type_wd_1[i], days = TRUE)))
cat(':::\n\n')
cat(':::\n\n')
cat('### By Country\n\n')
cat('::: {.cell layout-ncol="2"}\n\n')
cat('::: {.cell-output-display}\n\n')
cat(knitr::knit_print(getChartBarHorizontal(rc_data = rc_data_query, by = 'Country (Primary)', type = projects_by_type$prj_type_wd_1[i])))
cat(':::\n\n')
cat('::: {.cell-output-display}\n\n')
cat(knitr::knit_print(getChartBarHorizontal(rc_data = rc_data_query, by = 'Country (Primary)', type = projects_by_type$prj_type_wd_1[i], days = TRUE)))
cat(':::\n\n')
cat(':::\n\n')
cat(':::\n\n')
}
```
