9_9_Appendices.rmd

---
title: ""
author: ""
date: ""
output: 
  pdf_document:
     keep_tex: yes
     includes:
      in_header: header.tex
---
<!-- ************************************************************************************************--> 
<!-- **********************************BEGIN APPENDICES**********************************************--> 
<!-- ************************************************************************************************--> 
\FloatBarrier
\newpage

<!-- ************************************DATA FILE(S)************************************************--> 
#Appendix A. Detailed fits to length composition data {-}
\renewcommand{\thepage}{A-\arabic{page}}
\renewcommand{\thefigure}{A\arabic{figure}}
\setcounter{page}{1}

<!-- Length Composition (LenComp) r4ss plots ------------------------------- -->
```{r, results='asis'}
 ##subset to just the plots of length comp fits
  len_plots = LenComp_mod1[grep("lenfit_flt",LenComp_mod1$file),]
    # Plot all of the length comp plots
      for(i in 1:dim(len_plots)[1]) { # was previously 1:10 but caused error due to no 10th figure
       
        # find matches to multi-page plots
        page_test = sapply(multi_page_fig, grepl, len_plots$label[i])
       
       # if the plot is page2+ of a series, add the extra caption
        if(TRUE %in% page_test) {
         cat('\n![](', len_plots[i, path_col], ')', sep='')
      
         cat('\\begin{center} \n
              Figure continued from previous page \n
             \\end{center}',sep='')
       
       } else {

        cat('\n![', len_plots[i,caption_col], ' \\label{fig:mod1_', i, '_', len_plots[i, label_col], '}](', len_plots[i, path_col], ')\n', sep='')
 } }
```