#167 corrected gender label

IALSA · Mar 1, 2017 · 2b8df2d · 2b8df2d
1 parent c6a0eb1
commit 2b8df2d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/reports/correlation-3/support-functions.R b/reports/correlation-3/support-functions.R
@@ -465,6 +465,7 @@ print_forest_plot <- function(
     "lower"= c(NA,NA,d$lower,NA, forest_summary["lower"]),
     "upper"= c(NA,NA,d$upper,NA, forest_summary["upper"])
   )
+  gender_name <- ifelse(subgroup_=="male","MEN","WOMEN")
   g <- forestplot::forestplot(
     d_text,
     d_value,
@@ -492,7 +493,7 @@ print_forest_plot <- function(
     # hrzl_lines = list("3" = gpar(lty=1)),
     hrzl_lines =  gpar(col="#444444"),
     graph.pos  = 5,
-    title = paste0(toupper(index)," correlations in ",toupper(domain_)," domain among ",toupper(subgroup_),"S")
+    title = paste0(toupper(index)," correlations in ",toupper(domain_)," domain among ",gender_name,"S")
     # title = paste0("Slope correlations among ",toupper(subgroup_),"S")
   )
   return(g)