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

babel: R: output colnames when other languages would

Browse source
This commit is contained in:
Dan Davison 2010-04-30 14:14:13 -04:00
parent 7f085d0e5c
commit 7f3e64bfb4
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
contrib/babel/lisp/langs/org-babel-R.el
View file

@ -63,11 +63,17 @@ called by `org-babel-execute-src-block'."
(let* ((processed-params (org-babel-process-params params))
(result-type (fourth processed-params))
(session (org-babel-R-initiate-session (first processed-params) params))
(colnames-p (equal "yes" (cdr (assoc :colnames params))))
(rownames-p (equal "yes" (cdr (assoc :rownames params))))
(colnames-p (cdr (assoc :colnames params)))
(rownames-p (cdr (assoc :rownames params)))
(out-file (cdr (assoc :file params)))
(full-body (org-babel-expand-body:R body params processed-params))
(result (org-babel-R-evaluate session full-body result-type colnames-p rownames-p)))
(result
(org-babel-R-evaluate
session full-body result-type
(or (equal "yes" colnames-p)
(org-babel-pick-name (nth 4 processed-params) colnames-p))
(or (equal "yes" rownames-p)
(org-babel-pick-name (nth 5 processed-params) rownames-p)))))
(or out-file result))))
(defun org-babel-prep-session:R (session params)