paper.R

# Report-generating scripts

# tools -----

  library(plyr)
  library(tidyverse)
  library(exda)
  library(cowplot)
  library(figur)
  library(writexl)
  library(knitr)
  library(rmarkdown)
  library(bookdown)
  library(flextable)
  library(soucer)
  library(rmdformats)
  library(trafo)
  library(patchwork)

  insert_head()
  
  source_all('./tools/tools.R', 
             message = TRUE, crash = TRUE)
  
# Figures and tables for the revision -----
  
  insert_msg('Figures and tables for the revision')
  
  c('./paper scripts/reviewer_figures.R') %>% 
    source_all(message = TRUE, crash = TRUE)
  
# Paper scripts -----
  
  insert_msg('Launching the paper scripts')
  
  c('./paper scripts/links.R', 
    './paper scripts/tables.R', 
    './paper scripts/figures.R', 
    './paper scripts/supplementary.R', 
    './paper scripts/render.R') %>% 
    source_all(message = TRUE, crash = TRUE)

# END -----
  
  insert_tail()