R/footerBuildeR.R

In enaY15/TabulationAutomation: Auomated analysis and tabulation of results

#' Footer Builder
#'
#' @param tableNote Table note created by tableNoteR
#'
#' @return
#' @export
footerBuildeR <- function(tableNote) {
  footer <- paste0('
    \\end{tabular}
      \\begin{tablenotes}
        \\small
         \\item \\textit{Note}. ', tableNote,
                   '
    \\end{tablenotes}
  \\end{threeparttable}
\\end{table}

\\newpage


                   ')
  cat(footer)
}