From: Jean-Marc Lasgouttes <lasgouttes@lyx.org>
Date: Thu, 8 Sep 2011 10:44:44 +0000 (+0000)
Subject: backport r39509 and r39510 to branch (see bug #7555)
X-Git-Tag: 2.0.2~215
X-Git-Url: https://git.lyx.org/gitweb/?a=commitdiff_plain;h=b88154ef6f1dbe310a8c6d12bea9c83ebe64a0d1;p=features.git

backport r39509 and r39510 to branch (see bug #7555)

git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/branches/BRANCH_2_0_X@39644 a592a061-630c-0410-9148-cb99ea01b6c8
---

diff --git a/development/scons/scons_manifest.py b/development/scons/scons_manifest.py
index 99b369880f..4e8d418c3f 100644
--- a/development/scons/scons_manifest.py
+++ b/development/scons/scons_manifest.py
@@ -2991,6 +2991,7 @@ lib_scripts_files = Split('''
     lyxpreview-lytex2bitmap.py
     lyxpreview-platex2bitmap.py
     lyxpreview_tools.py
+    lyxstangle.R
     lyxsweave.R
     prefs2prefs.py
     prefs2prefs_lfuns.py
diff --git a/lib/Makefile.am b/lib/Makefile.am
index 9c3d46ce09..e60624a090 100644
--- a/lib/Makefile.am
+++ b/lib/Makefile.am
@@ -1486,6 +1486,7 @@ dist_layouts_DATA =\
 scriptsdir = $(pkgdatadir)/scripts
 dist_scripts_DATA = \
 	scripts/bash_completion \
+	scripts/lyxstangle.R \
 	scripts/lyxsweave.R
 # Note that we "chmod 755" manually these files in install-data-hook.
 dist_scripts_PYTHON = \
diff --git a/lib/configure.py b/lib/configure.py
index c159fbdd59..0b51dedb25 100644
--- a/lib/configure.py
+++ b/lib/configure.py
@@ -556,6 +556,7 @@ def checkFormatEntries(dtl_tools):
 \Format platex     tex    "LaTeX (pLaTeX)"        "" "" "%%"    "document,menu=export"
 \Format literate   nw      NoWeb                  N  ""	"%%"	"document,menu=export"
 \Format sweave     Rnw    "Sweave"                S  "" "%%"    "document,menu=export"
+\Format r          R      "R/S code"              "" "" "%%"    "document,menu=export"
 \Format lilypond   ly     "LilyPond music"        "" ""	"%%"	"vector"
 \Format lilypond-book    lytex "LilyPond book (LaTeX)"   "" ""	"%%"	"document,menu=export"
 \Format latex      tex    "LaTeX (plain)"         L  ""	"%%"	"document,menu=export"
@@ -681,6 +682,9 @@ def checkConverterEntries():
 \converter sweave   xetex      "%%"	""
 \converter sweave   luatex     "%%"	""'''])
     #
+    checkProg('a Sweave -> R/S code converter', ['Rscript --verbose --no-save --no-restore $$s/scripts/lyxstangle.R $$i $$e $$r'], 
+        rc_entry = [ r'\converter sweave      r      "%%"    ""' ])
+    #
     checkProg('an HTML -> LaTeX converter', ['html2latex $$i', 'gnuhtml2latex $$i', \
         'htmltolatex -input $$i -output $$o', 'java -jar htmltolatex.jar -input $$i -output $$o'],
         rc_entry = [ r'\converter html       latex      "%%"	""' ])
diff --git a/lib/scripts/lyxstangle.R b/lib/scripts/lyxstangle.R
new file mode 100644
index 0000000000..93fb611720
--- /dev/null
+++ b/lib/scripts/lyxstangle.R
@@ -0,0 +1,16 @@
+## file lyxstangle.R
+## This file is part of LyX, the document processor.
+## Licence details can be found in the file COPYING.
+
+## author Yihui Xie
+
+## Full author contact details are available in file CREDITS
+
+## Rscript $$s/scripts/lyxstangle.R $$i $$e $$r
+
+.cmdargs = commandArgs(TRUE)
+
+options(encoding = .cmdargs[2])
+
+## run Stangle to extract R code
+Stangle(.cmdargs[1])
diff --git a/status.20x b/status.20x
index 947932667d..3d84b75021 100644
--- a/status.20x
+++ b/status.20x
@@ -24,6 +24,8 @@ What's new
 
 * DOCUMENT INPUT/OUTPUT
 
+- Add possibility to export the R code from a sweave-enabled document
+  (part of bug 7555).
 
 * USER INTERFACE