diff options
Diffstat (limited to 'lisp/org/ob-R.el')
| -rw-r--r-- | lisp/org/ob-R.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org/ob-R.el b/lisp/org/ob-R.el index ded825b1d01..6781fb30a3b 100644 --- a/lisp/org/ob-R.el +++ b/lisp/org/ob-R.el | |||
| @@ -159,10 +159,10 @@ This function is called by `org-babel-execute-src-block'." | |||
| 159 | (result-type (cdr (assq :result-type params))) | 159 | (result-type (cdr (assq :result-type params))) |
| 160 | (session (org-babel-R-initiate-session | 160 | (session (org-babel-R-initiate-session |
| 161 | (cdr (assq :session params)) params)) | 161 | (cdr (assq :session params)) params)) |
| 162 | (colnames-p (cdr (assq :colnames params))) | ||
| 163 | (rownames-p (cdr (assq :rownames params))) | ||
| 164 | (graphics-file (and (member "graphics" (assq :result-params params)) | 162 | (graphics-file (and (member "graphics" (assq :result-params params)) |
| 165 | (org-babel-graphical-output-file params))) | 163 | (org-babel-graphical-output-file params))) |
| 164 | (colnames-p (unless graphics-file (cdr (assq :colnames params)))) | ||
| 165 | (rownames-p (unless graphics-file (cdr (assq :rownames params)))) | ||
| 166 | (full-body | 166 | (full-body |
| 167 | (let ((inside | 167 | (let ((inside |
| 168 | (list (org-babel-expand-body:R body params graphics-file)))) | 168 | (list (org-babel-expand-body:R body params graphics-file)))) |