R/compile.R

Defines functions compile

Documented in compile

#' Run pdflatex, bibtex, pdflatex pdflates on file
compile<-function(filepath){
  directory=dirname(filepath)
  filename=basename(filepath)
  nettoie(directory)
  #if(.Platform$OS.type == "unix") {} else {}
  system(command = paste0("
cd ", directory,";
pdflatex '",file.path(directory,filename),".tex' -shell-escape -interaction=batchmode;
bibtex -terse '",file.path(directory,filename),".aux';
pdflatex '",file.path(directory,filename),".tex' -shell-escape -interaction=batchmode;
pdflatex '",file.path(directory,filename),".tex' -shell-escape -interaction=batchmode;"),
         intern=FALSE,
         wait=FALSE,
         ignore.stdout=TRUE, 
         ignore.stderr=TRUE)
  nettoie(directory)
}
DanielBonnery/SweaveLst documentation built on May 4, 2022, 11:45 p.m.