mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 22:47:56 +00:00
Code Releases Activity

Removing results processing code from org-babel-R.el.

Browse source 
And removing default results-type case (results-type must always be
either output or value)
This commit is contained in:
Dan Davison 2009-07-05 19:19:14 -04:00
parent a285289603
commit 07b69e8646
1 changed files with 4 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/langs/org-babel-R.el
View file

@ -50,23 +50,8 @@ called by `org-babel-execute-src-block'."
(result-type (cond ((member "output" result-params) 'output)
((member "value" result-params) 'value)
(t 'value)))
(session (org-babel-R-initiate-session (cdr (assoc :session params))))
results)
;; ;;; debugging statements
;; (message (format "result-type=%S" result-type))
;; (message (format "body=%S" body))
;; (message (format "session=%S" session))
;; (message (format "result-params=%S" result-params))
;; evaluate body and convert the results to ruby
(setq results (org-babel-R-evaluate session full-body result-type))
(setq results (if (member "scalar" result-params)
results
(let ((tmp-file (make-temp-file "org-babel-R")))
(with-temp-file tmp-file (insert results))
(org-babel-import-elisp-from-file tmp-file))))
(if (and (member "vector" result-params) (not (listp results)))
(list (list results))
results))))
(session (org-babel-R-initiate-session (cdr (assoc :session params)))))
(org-babel-R-evaluate session full-body result-type))))
(defun org-babel-prep-session:R (session params)
"Prepare SESSION according to the header arguments specified in PARAMS."
@ -156,8 +141,8 @@ last statement in BODY."
(case result-type
(output (org-babel-trim (mapconcat #'identity results "\n")))
(value (org-babel-trim
(with-temp-buffer (insert-file-contents tmp-file) (buffer-string))))
(t (reverse results)))))))
(with-temp-buffer (insert-file-contents tmp-file) (buffer-string)))))))))
(provide 'org-babel-R)
;;; org-babel-R.el ends here