packrat/lib/x86_64-w64-mingw32/3.6.1/tinytex/tests/test-travis/test-packages.R

In jmcascalheira/LGMIberiaCluster: Research compendium for the paper "Human adaptations and palaeoenvironmental record during the Last Glacial Maximum in the Iberian Peninsula"

# make sure the default installation includes all LaTeX packages required to
# compile basic R Markdown documents and bookdown books to PDF
if (.Platform$OS.type == 'unix') xfun::in_dir('../../../tools', {
  system('sh install-base.sh && ./texlive/bin/*/tlmgr path add')
  unlink(normalizePath('~/texlive'), recursive = TRUE)
  x0 = tinytex::tl_pkgs()  # packages from the minimal installation
  cat('Base packages are:', sort(x0))

  # render some Rmd files to automatically install LaTeX packages to TinyTeX
  rmarkdown::render('test-basic.Rmd', 'pdf_document', quiet = TRUE)
  bookdown:::bookdown_skeleton('book')
  xfun::in_dir('book', for (i in c('pdflatex', 'xelatex', 'lualatex')) {
    bookdown::render_book(
      'index.Rmd', 'bookdown::pdf_book', output_options = list(latex_engine = i),
      quiet = TRUE, clean_envir = FALSE
    )
  })

  # report the size of TeX Live after installing the above packages
  system('du -sh texlive')

  # now see which packages are required to compile the above Rmd files
  x1 = sort(unique(c(
    setdiff(tinytex::tl_pkgs(), x0),
    'latexmk',  # https://github.com/yihui/tinytex/issues/51
    'float', # https://github.com/yihui/tinytex/issues/122
    # https://github.com/yihui/tinytex/issues/73
    'ec', 'inconsolata', 'times', 'tex', 'helvetic', 'dvips', 'metafont', 'mfware', 'xkeyval'
  )))
  tlmgr_install(x1)
  x2 = sort(readLines('pkgs-custom.txt'))
  if (!identical(x1, x2)) stop(
    'pkgs-custom.txt needs to be updated.\n\nPackages required are:\n',
    paste(x1, collapse = '\n')
  )

  # any new packages need to be added to pkgs-yihui.txt?
  rmarkdown::render('test-basic.Rmd', 'beamer_presentation', quiet = TRUE)
  x3 = sort(setdiff(tinytex::tl_pkgs(), c(x1, x0)))
  x4 = sort(readLines('pkgs-yihui.txt'))
  if (length(x5 <- setdiff(x3, x4))) stop(
    'pkgs-yihui.txt needs to include:\n', paste(x5, collapse = '\n')
  )
})