[Orgmode] [babel] with-parsed-tramp-file-name

[Austin F. Frank]

Hello!

Recently I discovered that I can no longer evaluate R source code blocks
on a file opened using TRAMP.  I've recreated the bug using a minimal
config.  The process to reproduce this bug is described below.


Using Org-mode version 7.01trans (release_7.01h.746.g72c5) with the
following minimal configuration:

--8<---------------cut here---------------start------------->8---
;; specific to my setup
(add-to-list 'load-path (expand-file-name "~/src.remote/org-mode/lisp/"))
(add-to-list 'load-path (expand-file-name "/usr/local/share/emacs/site-lisp/"))

;; general instructions
(require 'tramp)
(require 'tramp-sh)             ; have to do this to set tramp-remote-path?
(require 'ess-site)
(require 'org-install)

(setq debug-on-error t)

;; active Babel languages
(org-babel-do-load-languages
 'org-babel-load-languages
 '((R . t)))

;; required for R to work correctly on my remote server
(add-to-list 'tramp-remote-path 'tramp-own-remote-path)
--8<---------------cut here---------------end--------------->8---

I evaluate the following code block from a file accessed using TRAMP:

--8<---------------cut here---------------start------------->8---
#+source:  R-options
#+BEGIN_SRC R :cache no :results silent :exports none
options(digits = 4)
theme_set(theme_bw(18))
theme_thesis <- theme_update(panel.margin = unit(1.5, "lines"))
theme_set(theme_thesis)
lattice.options(default.args = list(as.table = TRUE))
dev.new()
#+END_SRC
--8<---------------cut here---------------end--------------->8---

And get the following backtrace:

#v+
Debugger entered--Lisp error: (invalid-function with-parsed-tramp-file-name)
  with-parsed-tramp-file-name("/scpc:bcs:/tmp/R-22126Grk" nil nil)
  org-babel-local-file-name("/scpc:bcs:/tmp/R-22126Grk")
  org-babel-process-file-name("/scpc:bcs:/tmp/R-22126Grk" noquote)
  org-babel-R-evaluate-session("*R*" "options(digits = 
4)\ntheme_set(theme_bw(18))\ntheme_thesis <- theme_update(panel.margin = 
unit(1.5, \"lines\"))\ntheme_set(theme_thesis)\nlattice.options(default.args = 
list(as.table = TRUE))\ndev.new()" value nil nil)
  org-babel-R-evaluate("*R*" "options(digits = 
4)\ntheme_set(theme_bw(18))\ntheme_thesis <- theme_update(panel.margin = 
unit(1.5, \"lines\"))\ntheme_set(theme_thesis)\nlattice.options(default.args = 
list(as.table = TRUE))\ndev.new()" value nil nil)
  org-babel-execute:R("options(digits = 
4)\ntheme_set(theme_bw(18))\ntheme_thesis <- theme_update(panel.margin = 
unit(1.5, \"lines\"))\ntheme_set(theme_thesis)\nlattice.options(default.args = 
list(as.table = TRUE))\ndev.new()\n" ((:cache . "no") (:comments . "") 
(:exports . "none") (:height . "600") (:hlines . "no") (:noweb . "no") 
(:results . "silent") (:session) (:shebang . "") (:tangle . "no") (:width . 
"1000")))
  org-babel-execute-src-block(nil ("R" "options(digits = 
4)\ntheme_set(theme_bw(18))\ntheme_thesis <- theme_update(panel.margin = 
unit(1.5, \"lines\"))\ntheme_set(theme_thesis)\nlattice.options(default.args = 
list(as.table = TRUE))\ndev.new()\n" ((:cache . "no") (:comments . "") 
(:exports . "none") (:height . "600") (:hlines . "no") (:noweb . "no") 
(:results . "silent") (:session) (:shebang . "") (:tangle . "no") (:width . 
"1000")) "" "R-options" nil 0))
  org-babel-execute-src-block-maybe()
  org-babel-execute-maybe()
  org-babel-execute-safely-maybe()
  run-hook-with-args-until-success(org-babel-execute-safely-maybe)
  org-ctrl-c-ctrl-c(nil)
  call-interactively(org-ctrl-c-ctrl-c nil nil)
#v-

But I can see that `with-parsed-tramp-file-name' is a defined function
by using C-h f, which reports:

#v+
with-parsed-tramp-file-name is a Lisp macro in `tramp.el'.

(with-parsed-tramp-file-name FILENAME VAR &rest BODY)
#v-

Can anyone help me understand why I can't evaluate R source blocks on a
remote machine?  Is there further debugging information I can provide?

Thanks,
/au

-- 
Austin Frank
http://aufrank.net
GPG Public Key (D7398C2F): http://aufrank.net/personal.asc

pgpdVW1aQdfjL.pgp
Description: PGP signature