Add extra burden outcomes

pratikunterwegs · pratikunterwegs · commit 71aadc186fd6 · 2026-01-30T10:32:23.000Z
diff --git a/R/constants.R b/R/constants.R
@@ -27,7 +27,13 @@ burden_outcome_names <- c(
   "cases",
   "deaths",
   "dalys",
-  "yll"
+  "yll",
+  "deaths_cwyx",
+  "cases_cwyx",
+  "dalys_cwyx",
+  "yll_cwyx",
+  "rubella_deaths_congenital",
+  "rubella_cases_congenital"
 )
 
 #' @name constants
diff --git a/R/plotting_prep.R b/R/plotting_prep.R
@@ -96,7 +96,7 @@ prep_plot_age <- function(burden) {
 
   burden_long <- tidyr::pivot_longer(
     burden,
-    {{ burden_outcome_names }},
+    tidyr::any_of(burden_outcome_names),
     names_to = "burden_outcome"
   )
 
@@ -145,7 +145,7 @@ prep_plot_burden_decades <- function(burden, year_max) {
 
   burden_data <- tidyr::pivot_longer(
     burden_data,
-    {{ burden_outcome_names }},
+    tidyr::any_of(burden_outcome_names),
     names_to = "burden_outcome"
   )
 
@@ -169,7 +169,7 @@ prep_plot_global_burden <- function(burden) {
 
   burden_long <- tidyr::pivot_longer(
     burden,
-    {{ burden_outcome_names }},
+    tidyr::any_of(burden_outcome_names),
     names_to = nesting_cols
   )
 
diff --git a/man/constants.Rd b/man/constants.Rd

Original file line number	Diff line number	Diff line change
`@@ -96,7 +96,7 @@ prep_plot_age <- function(burden) {`
`96`	`96`
`97`	`97`	`burden_long <- tidyr::pivot_longer(`
`98`	`98`	`burden,`
`99`		`- {{ burden_outcome_names }},`
	`99`	`+ tidyr::any_of(burden_outcome_names),`
`100`	`100`	`names_to = "burden_outcome"`
`101`	`101`	`)`
`102`	`102`
`@@ -145,7 +145,7 @@ prep_plot_burden_decades <- function(burden, year_max) {`
`145`	`145`
`146`	`146`	`burden_data <- tidyr::pivot_longer(`
`147`	`147`	`burden_data,`
`148`		`- {{ burden_outcome_names }},`
	`148`	`+ tidyr::any_of(burden_outcome_names),`
`149`	`149`	`names_to = "burden_outcome"`
`150`	`150`	`)`
`151`	`151`
`@@ -169,7 +169,7 @@ prep_plot_global_burden <- function(burden) {`
`169`	`169`
`170`	`170`	`burden_long <- tidyr::pivot_longer(`
`171`	`171`	`burden,`
`172`		`- {{ burden_outcome_names }},`
	`172`	`+ tidyr::any_of(burden_outcome_names),`
`173`	`173`	`names_to = nesting_cols`
`174`	`174`	`)`
`175`	`175`