From edd51121d83adc8a510631a87c8141f3b67694aa Mon Sep 17 00:00:00 2001
From: Jean-Marc Lasgouttes <lasgouttes@lyx.org>
Date: Mon, 21 Mar 2011 14:48:22 +0000
Subject: [PATCH] Almost finish fixing bug http://www.lyx.org/trac/ticket/6623

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
---
 lib/configure.py        |  2 +-
 lib/scripts/lyxsweave.R | 21 +++++++++++++--------
 2 files changed, 14 insertions(+), 9 deletions(-)

diff --git a/lib/configure.py b/lib/configure.py
index a64737be3b..ec9b4ccc45 100644
--- a/lib/configure.py
+++ b/lib/configure.py
@@ -627,7 +627,7 @@ def checkConverterEntries():
         rc_entry = [r'''\converter literate   latex      "%%"	""
 \converter literate   pdflatex      "%%"	""'''])
     #
-    checkProg('a Sweave -> LaTeX converter', ['Rscript --no-save --no-restore $$s/scripts/lyxsweave.R $$p$$i $$e $$r'],
+    checkProg('a Sweave -> LaTeX converter', ['Rscript --verbose --no-save --no-restore $$s/scripts/lyxsweave.R $$p$$i $$p$$o $$e $$r'],
         rc_entry = [r'''\converter sweave   latex      "%%"	""
 \converter sweave   pdflatex      "%%"	""'''])
     #
diff --git a/lib/scripts/lyxsweave.R b/lib/scripts/lyxsweave.R
index 1723cd7166..9a8c6f3e6a 100644
--- a/lib/scripts/lyxsweave.R
+++ b/lib/scripts/lyxsweave.R
@@ -1,7 +1,8 @@
 # Wrapper around Sweave that sets up some things for LyX
-# argument 1 is the file name
-# argument 2 is the iconv name for the encoding of the file
-# argument 3 is the document directory
+# 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)
 
@@ -11,11 +12,15 @@ 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[2])
+ls.enc <- getOption("encoding")
+options(encoding=ls.args[3])
 
 # pass document dir to sweave module
-ls.dir <- ls.args[3]
+ls.dir <- ls.args[4]
 
-#run sweave
-Sweave(ls.args[1], stylepath=ls.sp)
+# 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)
-- 
2.39.2