mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-30 03:27:54 +00:00
Code Releases Activity

babel: allow R to produce svg format output

Browse source
This commit is contained in:
Dan Davison 2010-04-01 18:45:59 -04:00
parent 1c617796ec
commit 40a8933ba6
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -113,6 +113,7 @@ called by `org-babel-execute-src-block'."
(:jpeg . "jpeg") (:jpeg . "jpeg")
(:tiff . "tiff") (:tiff . "tiff")
(:png . "png") (:png . "png")
(:svg . "svg")
(:pdf . "pdf") (:pdf . "pdf")
(:ps . "postscript") (:ps . "postscript")
(:postscript . "postscript"))) (:postscript . "postscript")))
@ -123,7 +124,7 @@ called by `org-babel-execute-src-block'."
(device (and (string-match ".+\\.\\([^.]+\\)" out-file) (match-string 1 out-file))) (device (and (string-match ".+\\.\\([^.]+\\)" out-file) (match-string 1 out-file)))
(extra-args (cdr (assq :R-dev-args params))) filearg args) (extra-args (cdr (assq :R-dev-args params))) filearg args)
(setq device (or (and device (cdr (assq (intern (concat ":" device)) devices))) "png")) (setq device (or (and device (cdr (assq (intern (concat ":" device)) devices))) "png"))
(setq filearg (if (member device '("pdf" "postscript")) "file" "filename")) (setq filearg (if (member device '("pdf" "postscript" "svg")) "file" "filename"))
(setq args (mapconcat (lambda (pair) (setq args (mapconcat (lambda (pair)
(if (member (car pair) allowed-args) (if (member (car pair) allowed-args)
(format ",%s=%s" (substring (symbol-name (car pair)) 1) (cdr pair)) "")) (format ",%s=%s" (substring (symbol-name (car pair)) 1) (cdr pair)) ""))