]> git.lyx.org Git - features.git/blob - lib/scripts/lyxsweave.R
8ab0ea99510d3df33f39b0fe2a02257f0a030e6f
[features.git] / lib / scripts / lyxsweave.R
1 # Wrapper around Sweave that sets up some things for LyX
2 # argument 1 is the file name
3
4 args <- commandArgs(trailingOnly=T)
5
6 # check whether Sweave.sty is seen by LaTeX
7 sweavesty <- system("kpsewhich Sweave.sty", intern=T, ignore.stderr=T)
8 sp <- (length(sweavesty) == 0)
9
10 Sweave(args[1], stylepath=sp)