Add Literature Search Methods and Source Code Output pages

Author: EccRiley

Comps alias Comps alias

@@ -4,7 +4,25 @@ author: Rachel M. Smith
 date: NULL
 ---
 
-\vspace*{-2em}\SFrule
+```{r setup, echo=FALSE, results='hide', message=FALSE, warning=FALSE, cache=FALSE}
+# source("../SETUP.R")
+knitr::opts_chunk$set(
+    tidy = FALSE,
+    echo = FALSE,
+    fig.keep = 'high',
+    fig.show = 'hold',
+    results = 'asis'
+)
+sm <- function(x) {
+    if (knitr:::is_latex_output()) {
+    sprintf("\\small{%s}", x)
+    } else {
+        sprintf("<span style=\"font-size:75%%;\">%s</span>", x)
+    }
+}
+```
+
+\newpage
 
 # Citation
 
@@ -16,21 +34,28 @@ date: NULL
 
 `r tufte::newthought("Research Question(s) (RQs)")`
 
-\vspace*{-1.5em}
-\hspace*{2em} \small{Including theoretical model(s) (if applicable)}
+\vspace*{-0.25em}
+
+\hspace*{1em} _`r sm("Including theoretical model(s) (if applicable)")`_
 
 `r tufte::newthought("Hypotheses")`
 
-\vspace*{-1.5em}
-\hspace*{2em} \small{Including hypothesized model(s) (if applicable)}
+\vspace*{-0.25em}
+
+\hspace*{1em} _`r sm("Including hypothesized/statistical model(s) (if applicable)")`_
 
 \tufteskip
 
 # Target Population(s) & Sampling Frame(s)
 
 \Frule
 
-## Target Population(s) (By Level of Specificity)
+## Target Population(s)
+
+\vspace*{-0.5em}
+
+\hspace*{1em} _`r sm("By Level of Specificity")`_
+
 
 `r tufte::newthought("Includes")`
 
@@ -52,52 +77,81 @@ date: NULL
 
 \Frule
 
-\hspace*{2em} $\square$ Probability/Random
-\hspace*{2em} $\square$ Purposive
-\hspace*{2em} $\square$ Convenience
+\parindent=1em\ $\square$ Probability/Random
+
+\parindent=1em\ $\square$ Purposive
+
+\parindent=1em\ $\square$ Convenience
 
 \tufteskip
 
 # Study Design(s)
 
 \Frule
 
-## QuaLitative Research Designs (if applicable)
+## Qua**L**itative Research Designs 
+
+\vspace*{-0.5em}
 
-<!-- \hspace*{2em} $\square$ Multi-method design -->
+\hspace*{1em} _`r sm("(if applicable)")`_
 
-\hspace*{2em}  $\square$ \textsc{Grounded Theory}
+
+<!-- \hspace*{1em} $\square$ Multi-method design -->
+
+\parindent=1em\ $\square$ \textsc{Grounded Theory}
 
 \parindent=1em\ $\square$ \textsc{Phenomenology}
+
 \parindent=1em\ $\square$ \textsc{Ethnography}
+
 \parindent=1em\ $\square$ \textsc{Case-Study}
+
 \parindent=1em\ $\square$ \textsc{Narrative/Descriptive}
+
 \parindent=2.25em\ $\square$ Biographical
+
 \parindent=2.25em\ $\square$ Historical
 
 
-## QuaNTitative Research Designs (if applicable)
+## Qua**NT**itative Research Designs 
+
+\vspace*{-0.5em}
+
+\hspace*{1em} _`r sm("(if applicable)")`_
 
 \parindent=1em\ $\square$ \textsc{Experimental}
+
 \parindent=2.5em\ $\square$ Longitudinal
+
 \parindent=2.5em\ $\square$ Pre-Post
-\parindent=2.25em\ $\square$ \textsc{Randomized Control Trial (RCT)}
+
+\parindent=2.5em\ $\square$ \textsc{Randomized Control Trial (RCT)}
+
 \parindent=3.25em\ $\square$ RCT - Longitudinal
+
 \parindent=3.25em\ $\square$ RCT - Pre-Post
+
 \parindent=1em\ $\square$ \textsc{Quasi-Experimental}
+
 \parindent=1em\ $\square$ \textsc{Cross-Sectional}
 
 # Methodology
 
 \Frule
 
 \parindent=1em\ $\square$ \textsc{Qualitative}
+
 \parindent=1em\ $\square$ \textsc{Quantitative}
+
 \parindent=1em\ $\square$ \textsc{Mixed-Methods}
 
 \tufteskip
 
-# Data Collection Method(s) / Data Source(s) (By Sampling Frame Level & Methodology)
+# Data Collection Method(s) / Data Source(s) 
+
+\vspace*{-0.5em}
+
+\hspace*{1em} _`r sm("By Sampling Frame Level \\& Methodology")`_
 
 \Frule
 
@@ -113,15 +167,23 @@ date: NULL
 
 \tufteskip
 
-\tufteskip
+\newpage
 
 # Key Findings
 
 \Frule
 
-`r tufte::newthought("Sample Characteristics (by sampling frame level \\& methodology)")`
+`r tufte::newthought("Sample Characteristics")`
+
+\vspace*{-0.25em}
+
+\hspace*{1em} _`r sm("By sampling frame level \\& methodology")`_
+
+`r tufte::newthought("Findings")`
 
-`r tufte::newthought("Findings (by methodology \\& hypothesis/RQ)")`
+\vspace*{-0.25em}
+
+\hspace*{1em} _`r sm("by methodology \\& hypothesis/RQ")`_
 
 \tufteskip
 
@@ -130,8 +192,11 @@ date: NULL
 \Frule
 
 \parindent=1em\ $\square$ \textsc{Individual}
+
 \parindent=1em\ $\square$ \textsc{Relationship}
+
 \parindent=1em\ $\square$ \textsc{Community}
+
 \parindent=1em\ $\square$ \textsc{Societal}
 
 \SFrule
@@ -141,3 +206,4 @@ date: NULL
 `r tufte::quote_footer("--- @centers2015social; @dahlberg2002violence")`
 
 \newpage
+\refs

CompsLit alias

@@ -74,7 +74,10 @@ knitr::opts_template$set(invisible = list(echo=FALSE, results='hide', message=FA
 source("dbsrch.R")
 #'
 #+ dbsrch, results='asis',echo=FALSE
-pander(dbsrch, justify = c("right", "left", "centre"), caption = "Descriptions of database searches conducted with corresponding ranges of the number of results returned")
+# pander(dbsrch, justify = c("right", "left", "centre"), caption = "Descriptions of database searches conducted with corresponding ranges of the number of results returned")
+library(kableExtra)
+kable(dbsrch, caption = "Descriptions of database searches conducted with corresponding ranges of the number of results returned {#tbl:dbsrch}", justify = c("r", "l", "l")) %>%
+    add_footnote(c("Note: For each database search, multiple search terms were included for the subject/keywords parameters to represent intimate partner violence", "'PI' = PsycINFO; 'WoS' = Web of Science"))
 #'
 #' \newpage
 #'