mirror of
https://git.lyx.org/repos/lyx.git
synced 2024-09-20 06:49:56 +00:00
edd51121d8
Now we specify the output file for sweave explicitely for robustness reasons. We also specify prefix.string (in order to have the temp files generated in lyx tmp directory. The only annoying file now is Rplots.pdf, but I am not sure why it is generated... git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@37984 a592a061-630c-0410-9148-cb99ea01b6c8
27 lines
922 B
R
27 lines
922 B
R
# Wrapper around Sweave that sets up some things for LyX
|
|
# argument 1 is the absolute name of the input file
|
|
# argument 2 is the absolute name of the output file
|
|
# argument 3 is the iconv name for the encoding of the file
|
|
# argument 4 is the original document directory
|
|
|
|
ls.args <- commandArgs(trailingOnly=T)
|
|
|
|
# check whether Sweave.sty is seen by LaTeX
|
|
ls.sweavesty <- system("kpsewhich Sweave.sty", intern=T, ignore.stderr=T)
|
|
ls.sp <- (length(ls.sweavesty) == 0)
|
|
|
|
# set default encoding to the one of the file; it will be reset to previous
|
|
# default by the sweave module
|
|
ls.enc <- getOption("encoding")
|
|
options(encoding=ls.args[3])
|
|
|
|
# pass document dir to sweave module
|
|
ls.dir <- ls.args[4]
|
|
|
|
# this is used to tell where temporary files should go
|
|
ls.pr <- sub("\\.tex$", "", ls.args[2])
|
|
|
|
|
|
# finally run sweave
|
|
Sweave(file=ls.args[1], output=ls.args[2], syntax="SweaveSyntaxNoweb", stylepath=ls.sp, prefix.string=ls.pr)
|