From f41f46647a65d27bdf8e3c1f7e950673a1bfc165 Mon Sep 17 00:00:00 2001
From: Colin Gross <grosscol@gmail.com>
Date: Tue, 19 May 2020 11:08:23 -0400
Subject: [PATCH] Rearrange content per meeting result. Change headings per
 meeting result.

---
 report.Rnw | 97 ++++++++++++++++++++++++++++--------------------------
 1 file changed, 51 insertions(+), 46 deletions(-)

diff --git a/report.Rnw b/report.Rnw
index 587ecc8..69d4e71 100644
--- a/report.Rnw
+++ b/report.Rnw
@@ -78,7 +78,7 @@ knit_hooks$set(document = function(x) {sub('\\usepackage[]{color}', '\\usepackag
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \begin{minipage}[t][0.07\textheight][t]{\textwidth}
 \centering
-\Huge MICCA Quarterly Report for \Sexpr{RECIP} Jan - Apr 2020
+\Large MICCA Quarterly Report for \Sexpr{RECIP} Jan - Apr 2020
 \end{minipage}
 
 \nointerlineskip
@@ -107,7 +107,7 @@ knit_hooks$set(document = function(x) {sub('\\usepackage[]{color}', '\\usepackag
   \parbox{\textwidth}{ {\tiny \Sexpr{info7F5D31}} \par }
   \centering
   Payer Proportion of Deliveries
-    << p1-top-right, include=TRUE, fig.show='hold', fig.width=4, fig.height=2.9, dev='pdf' >>=
+    << p1-top-right, include=TRUE, fig.show='hold', fig.width=4, fig.height=2.7, dev='pdf' >>=
     fig7F5D31
     @
   \vfill
@@ -154,38 +154,34 @@ knit_hooks$set(document = function(x) {sub('\\usepackage[]{color}', '\\usepackag
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % PAGE 1: BOTTOM %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% SUBTITLE Spanning entire page
-\begin{minipage}[t][0.02\textheight][t]{\textwidth}
-\centering
-\textbf{Preference Provision}
-\end{minipage}
-
-\nointerlineskip
-\begin{minipage}[t][0.26\textheight][t]{0.5\textwidth}
+\begin{minipage}[t][0.30\textheight][t]{0.5\textwidth}
   \strut\vspace*{-\baselineskip}\newline
-  \parbox{\textwidth}{ {\tiny \Sexpr{infoBDBC81}} \par }
-  \centering
-  Provision of Preference Rate\\
-  \vspace{2mm}
-    << dbg1, include=TRUE, fig.show='hold', fig.width=2.5, fig.height=2.5, dev='pdf' >>=
-     figBDBC81
-    @
+  \parbox{\textwidth}{ {\tiny \Sexpr{info82C4A3}} \par }
+  \parbox{\textwidth}{\centering Contraception Choice}
+  \centering{
+  << p2-mid-left, include=TRUE, message=FALSE, echo=FALSE>>=
+   # DON"T INCLUDE A CAPTION.  It will bork the environment
+  knitr::kable(tbl82C4A3,  format.args = list(digits=3), align='c',
+               booktabs=T, format="latex")  %>%
+  kable_styling(font_size = 14) %>%
+  row_spec(0, bold=T)
+  
+  @
+  }
   \vfill
-  \makebox[\linewidth]{}
 \end{minipage}\hfill
-\begin{minipage}[t][0.26\textheight][t]{0.5\textwidth}
+\begin{minipage}[t][0.30\textheight][t]{0.5\textwidth}
   \strut\vspace*{-\baselineskip}\newline
-  \parbox{\textwidth}{ {\tiny \Sexpr{infoE8F578}} \par }
-  Provision of Preference Counts\\
+  \parbox{\textwidth}{ {\tiny \Sexpr{info1903AB}} \par }
   \centering
-    << dbg2, include=TRUE, fig.show='hold', fig.width=4, fig.height=3, dev='pdf' >>=
-     figE8F578
-    @
+  Contraception Choice by Insurance Type
+  << p2-mid-right, include=TRUE, fig.show='hold', fig.width=4, fig.height=3, dev='pdf' >>=
+     fig1903AB
+  @
   \vfill
   \makebox[\linewidth]{}
 \end{minipage}
 
-
 %% PAGE BREAK %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \newpage
 \FloatBarrier
@@ -194,46 +190,55 @@ knit_hooks$set(document = function(x) {sub('\\usepackage[]{color}', '\\usepackag
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % PAGE 2: TOP %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% SUBTITLE Spanning entire page
+\begin{minipage}[t][0.02\textheight][t]{\textwidth}
+\centering
+\textbf{Preferred Method Provided}
+\end{minipage}
 
-\begin{minipage}[t][0.30\textheight][t]{0.5\textwidth}
+\nointerlineskip
+\begin{minipage}[t][0.3\textheight][t]{0.5\textwidth}
   \strut\vspace*{-\baselineskip}\newline
-  \parbox{\textwidth}{ {\tiny \Sexpr{info82C4A3}} \par }
-  \parbox{\textwidth}{\centering Long Acting Contraceptive Preference}
-  \centering{
-  << p2-mid-left, include=TRUE, message=FALSE, echo=FALSE>>=
-   # DON"T INCLUDE A CAPTION.  It will bork the environment
-  knitr::kable(tbl82C4A3,  format.args = list(digits=3), align='c',
-               booktabs=T, format="latex")  %>%
-  kable_styling(font_size = 14) %>%
-  row_spec(0, bold=T)
-  
-  @
-  }
+  \parbox{\textwidth}{ {\tiny \Sexpr{infoBDBC81}} \par }
+  \centering
+  Women who had a live birth and recieve their preferred contraceptive\\
+  \vspace{2mm}
+    << dbg1, include=TRUE, fig.show='hold', fig.width=2.5, fig.height=2.5, dev='pdf' >>=
+     figBDBC81
+    @
   \vfill
+  \makebox[\linewidth]{}
 \end{minipage}\hfill
-\begin{minipage}[t][0.30\textheight][t]{0.5\textwidth}
+\begin{minipage}[t][0.3\textheight][t]{0.5\textwidth}
   \strut\vspace*{-\baselineskip}\newline
-  \parbox{\textwidth}{ {\tiny \Sexpr{info1903AB}} \par }
+  \parbox{\textwidth}{ {\tiny \Sexpr{infoE8F578}} \par }
+  Proportion of contraception preferred and provided\\
   \centering
-  Preference of Women with Documented Choice
-  << p2-mid-right, include=TRUE, fig.show='hold', fig.width=4, fig.height=3, dev='pdf' >>=
-     fig1903AB
-  @
+    << dbg2, include=TRUE, fig.show='hold', fig.width=4, fig.height=2.8, dev='pdf' >>=
+     figE8F578
+    @
   \vfill
   \makebox[\linewidth]{}
 \end{minipage}
 
+
 \smallskip
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % PAGE 2: MIDDLE %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \begin{tcolorbox}[breakable,colback=white,colframe=black,width=\dimexpr\textwidth\relax]
 
+%% SUBTITLE Spanning entire page
+\begin{minipage}[t][0.02\textheight][t]{\textwidth}
+\centering
+\textbf{Immediate Postpartum Contraception: Provision in 0-3 Days}
+\end{minipage}
+
 \begin{minipage}[t][0.29\textheight][t]{0.5\textwidth}
   \strut\vspace*{-\baselineskip}\newline
   \parbox{\textwidth}{ {\tiny \Sexpr{infoADA835A}} \par }
   \centering
-  Overall Immediate PP Contraception Rate\\
+  Overall Rate\\
     << p1-mid-left, include=TRUE, fig.show='hold', fig.width=2.5, fig.height=2.5, dev='pdf' >>=
      figADA835A
     @
@@ -244,7 +249,7 @@ knit_hooks$set(document = function(x) {sub('\\usepackage[]{color}', '\\usepackag
   \strut\vspace*{-\baselineskip}\newline
   \parbox{\textwidth}{ {\tiny \Sexpr{info707A6E}} \par }
   \centering
-  Immediate PP Contraception Rate by Month
+  Monthly Rate\\
     << p1-mid-right, include=TRUE, fig.show='hold', fig.width=4, fig.height=3, dev='pdf' >>=
     fig707A6E
     @