mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 05:07:48 +00:00
babel: allow R to produce svg format output
This commit is contained in:
parent
1c617796ec
commit
40a8933ba6
|
@ -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)) ""))
|
||||||
|
|
Loading…
Reference in a new issue