ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ensuring return to current buffer when executing R code

This commit is contained in:
Eric Schulte 2009-02-23 17:52:18 -08:00
parent 488fa39b27
commit f8c437e5c3
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
litorgy/litorgy-R.el
View File

@ -36,11 +36,12 @@
(defun litorgy-execute:R (body params) (defun litorgy-execute:R (body params)
"Execute a block of R code with litorgy. This function is "Execute a block of R code with litorgy. This function is
called by `litorgy-execute-src-block'." called by `litorgy-execute-src-block'."
(save-window-excursion
(let (results) (let (results)
(message "executing R code block...") (message "executing R code block...")
(litorgy-initiate-R-buffer) (litorgy-initiate-R-buffer)
(mapc (lambda (line) (litorgy-R-input-command line)) (butlast (split-string body "[\r\n]"))) (mapc (lambda (line) (litorgy-R-input-command line)) (butlast (split-string body "[\r\n]")))
(litorgy-R-last-output))) (litorgy-R-last-output))))
;; Maybe the following be replaced with a method using `ess-execute', ;; Maybe the following be replaced with a method using `ess-execute',
;; I went with the following functions because I wrote them and they ;; I went with the following functions because I wrote them and they