Tgt

inst/rmarkdown/templates/memor/resources/memor.tex

@@ -103,7 +103,9 @@
 \usepackage{fancyvrb}
 \VerbatimFootnotes
 $endif$
-\usepackage{longtable,booktabs}
+
+% \usepackage{longtable,booktabs} - put above; tgt 20190905
+
 $if(graphics)$
 \usepackage{graphicx}
 \makeatletter
@@ -203,6 +205,7 @@
 \usepackage{tabu}
 \usepackage{threeparttable}
 \usepackage{threeparttablex}
+\usepackage{longtable,booktabs} % tgt added 20190905
 \usepackage{makecell}
 \usepackage[hang]{footmisc}
 
@@ -218,9 +221,8 @@
 \robustify\tnote
 
 % table/figure captions (titles and legends)
-
 \usepackage[singlelinecheck=false]{caption} % left justify table captions
-\captionsetup{font={color=$if(tabcapcolor)$$tabcapcolor$$else$black$endif$, sf}, skip=$if(tabcapskip)$$tabcapskip$$else$4pt$endif$, size=small, labelfont=sf, labelsep = period} % color and spacing between caption and table proper
+\captionsetup{font={color=$if(tabcapcolor)$$tabcapcolor$$else$black$endif$, sf}, skip=$if(tabcapskip)$$tabcapskip$$else$4pt$endif$, size=small, labelfont=sf, labelsep = period} % color and spacing between caption and table proper, updated 
 
 \makeatletter
 \let\runtitle\@title

inst/rmarkdown/templates/memor/skeleton/skeleton.Rmd

@@ -1,7 +1,7 @@
 ---
 title: "Title"
 author: 
-- You Name
+- Your Name
 - Second Author
 date: "`r Sys.Date()`"
 output: memor::pdf_memo

vignettes/test.Rmd

@@ -1,36 +1,38 @@
 ---
 title: "Title"
 author: 
-- You Name
+- Your Name
 - Second Author
 fontfamily: helvet
 libertine: false
 mainfont: Arial
 date: "`r Sys.Date()`"
-tabcapcolor: "orange"
+tabcapcolor: "green"
 tabcapskip: 4pt
 output: 
   memor::pdf_memo
 latex_engine: xelatex
 ---
 
-
-
 ```{r setup}
 library(knitr)
 library(kableExtra)
 library(ggplot2)
-opts_chunk$set(warning = FALSE, message = FALSE)
+opts_chunk$set(warning = FALSE, message = FALSE, tidy = TRUE, width = 80)
 ```
 
 # Section 1
 Here is a table
 
 ```{r}
 kable(mtcars[1:5, 1:5], booktabs = T, caption = "This is a table where the title is going to justify appropriately.") %>%
-  kable_styling(latex_options = c("striped", "HOLD_position"), position = "left") %>% footnote(general = "wahoops", threeparttable = TRUE, general_title = "")
+  kable_styling(latex_options = c("striped", "HOLD_position"), position = "left") %>% footnote(number = c("\\\\setstretch{.835} Here is a long footnote that we want to justify. It should be restricted to table width.", "And another one that we'll add to test it out. It should be restricted to table width."), threeparttable = TRUE, escape = F)
 ```
 
+```{r}
+kable(mtcars[1:5, 1:5], booktabs = T, caption = "This is a table where the title is going to justify appropriately.") %>%
+  kable_styling(latex_options = c("striped", "HOLD_position"), position = "left") %>% add_footnote(c("Here is a long footnote that we want to justify. It should be restricted to table width.", "And another one that we'll add to test it out. It should be restricted to table width."), threeparttable = T, notation = "number")
+```
 
 \clearpage