diff --git a/report.Rnw b/report.Rnw index 72b0889..587ecc8 100644 --- a/report.Rnw +++ b/report.Rnw @@ -68,7 +68,6 @@ knitr::opts_chunk$set(echo = FALSE, warning=FALSE, message=FALSE) knit_hooks$set(document = function(x) {sub('\\usepackage[]{color}', '\\usepackage{xcolor}', x, fixed = TRUE)}) @ -\title{MICCA Report} \begin{document} % Turn off top skip so minpages can sit bottom to top without a skip between @@ -79,7 +78,7 @@ knit_hooks$set(document = function(x) {sub('\\usepackage[]{color}', '\\usepackag %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \begin{minipage}[t][0.07\textheight][t]{\textwidth} \centering -\Huge \Sexpr{RECIP} Jan - Apr 2020 +\Huge MICCA Quarterly Report for \Sexpr{RECIP} Jan - Apr 2020 \end{minipage} \nointerlineskip @@ -105,7 +104,7 @@ knit_hooks$set(document = function(x) {sub('\\usepackage[]{color}', '\\usepackag \end{minipage}\hfill \begin{minipage}[t][0.30\textheight][t]{0.5\textwidth} \strut\vspace*{-\baselineskip}\newline - \parbox{\textwidth}{ {\tiny \Sexpr{info7F5D3}} \par } + \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' >>= @@ -120,14 +119,19 @@ knit_hooks$set(document = function(x) {sub('\\usepackage[]{color}', '\\usepackag %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % PAGE 1: MIDDLE % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% SUBTITLE Spanning entire page +\begin{minipage}[t][0.02\textheight][t]{\textwidth} +\centering +\textbf{Prenatal Contraceptive Counseling} +\end{minipage} -\begin{minipage}[t][0.30\textheight][t]{0.5\textwidth} +\begin{minipage}[t][0.26\textheight][t]{0.5\textwidth} \strut\vspace*{-\baselineskip}\newline \captionsetup{margin=.5cm} \setlength{\abovecaptionskip}{-10pt plus 3pt minus 2pt} \parbox{\textwidth}{ {\tiny \Sexpr{info540727}} \par } \centering - Counseling Rate\\ + Recieved Prenatal Counseling\\ \vspace{2mm} << p2-top-left, include=TRUE, fig.show='hold', fig.width=2.5, fig.height=2.5, dev='pdf' >>= fig540727 @@ -135,11 +139,12 @@ knit_hooks$set(document = function(x) {sub('\\usepackage[]{color}', '\\usepackag \vfill \makebox[\linewidth]{} \end{minipage}\hfill -\begin{minipage}[t][0.30\textheight][t]{0.5\textwidth} +\begin{minipage}[t][0.26\textheight][t]{0.5\textwidth} \strut\vspace*{-\baselineskip}\newline \parbox{\textwidth}{ {\tiny \Sexpr{info5BF5D0}} \par } \centering - << p2-top-right, include=TRUE, fig.show='hold', fig.width=4, fig.height=3, dev='pdf' >>= + Monthly Rate + << p2-top-right, include=TRUE, fig.show='hold', fig.width=4, fig.height=2.5, dev='pdf' >>= fig5BF5D0 @ \vfill @@ -149,9 +154,14 @@ 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.30\textheight][t]{0.5\textwidth} +\begin{minipage}[t][0.26\textheight][t]{0.5\textwidth} \strut\vspace*{-\baselineskip}\newline \parbox{\textwidth}{ {\tiny \Sexpr{infoBDBC81}} \par } \centering @@ -163,7 +173,7 @@ knit_hooks$set(document = function(x) {sub('\\usepackage[]{color}', '\\usepackag \vfill \makebox[\linewidth]{} \end{minipage}\hfill -\begin{minipage}[t][0.30\textheight][t]{0.5\textwidth} +\begin{minipage}[t][0.26\textheight][t]{0.5\textwidth} \strut\vspace*{-\baselineskip}\newline \parbox{\textwidth}{ {\tiny \Sexpr{infoE8F578}} \par } Provision of Preference Counts\\ @@ -187,11 +197,12 @@ knit_hooks$set(document = function(x) {sub('\\usepackage[]{color}', '\\usepackag \begin{minipage}[t][0.30\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(tbl_82C4A3, format.args = list(digits=3), align='c', + knitr::kable(tbl82C4A3, format.args = list(digits=3), align='c', booktabs=T, format="latex") %>% kable_styling(font_size = 14) %>% row_spec(0, bold=T) @@ -203,6 +214,7 @@ knit_hooks$set(document = function(x) {sub('\\usepackage[]{color}', '\\usepackag \begin{minipage}[t][0.30\textheight][t]{0.5\textwidth} \strut\vspace*{-\baselineskip}\newline \parbox{\textwidth}{ {\tiny \Sexpr{info1903AB}} \par } + \centering Preference of Women with Documented Choice << p2-mid-right, include=TRUE, fig.show='hold', fig.width=4, fig.height=3, dev='pdf' >>= fig1903AB