diff options
| author | Eric Schulte <schulte.eric@gmail.com> | 2013-07-04 08:36:09 -0600 |
|---|---|---|
| committer | Eric Schulte <schulte.eric@gmail.com> | 2013-07-04 08:37:02 -0600 |
| commit | bec8839cd62005ecc9f0596b2c064e076fb0fd6f (patch) | |
| tree | 3327831963ffb5a6044d6b349b7375cb4689bedb | |
| parent | a09835d8447eea67e7819974f6d506e6ba3970a4 (diff) | |
| download | org-mode-bec8839cd62005ecc9f0596b2c064e076fb0fd6f.tar.gz | |
prologue and epilogue for R blocks
| -rw-r--r-- | lisp/ob-R.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ob-R.el b/lisp/ob-R.el index 2c6afd8..74d7513 100644 --- a/lisp/ob-R.el +++ b/lisp/ob-R.el @@ -93,8 +93,13 @@ inside (list "dev.off()")) inside)) - (append (org-babel-variable-assignments:R params) - (list body))) "\n"))) + (append + (when (cdr (assoc :prologue params)) + (list (cdr (assoc :prologue params)))) + (org-babel-variable-assignments:R params) + (list body) + (when (cdr (assoc :epilogue params)) + (list (cdr (assoc :epilogue params)))))) "\n"))) (defun org-babel-execute:R (body params) "Execute a block of R code. |