babel: R: output colnames when other languages would
This commit is contained in:
parent
7f085d0e5c
commit
7f3e64bfb4
1 changed files with 9 additions and 3 deletions
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue