[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] Bug: R code block fails on one-dimensional variable [8.2.6 (8.2.6-di

From: Daniil Mirylenka
Subject: [O] Bug: R code block fails on one-dimensional variable [8.2.6 (8.2.6-dist @ /Users/dmirylenka/src/org-8.2.6/lisp/)]
Date: Mon, 19 May 2014 22:01:25 +0200
User-agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.9; rv:24.0) Gecko/20100101 Thunderbird/24.5.0

I am execute the following code block,
(in an empty scratch buffer, by running 'M-x org-babel-execute-src-block'):
#+BEGIN_SRC R :var x='(1 2 3)
What I expect is:
| 1 | 2 | 3 |
Instead, I get no output, and the following error message:
Wrong number of arguments: max, 0
The problem seems to be with one-dimensional variables, like x='(1 2 3):
when I change the variable to either x=2 or x='((1 2 3)), the code works as expected.

Here is the output from the debugger:
Debugger entered--Lisp error: (wrong-number-of-arguments max 0)
  apply(max nil)
  org-babel-R-assign-elisp(x (1 2 3) nil nil)
#[(pair) "address@hidden \"A\305\232\303\306 \"A\305\232$\207" [pair params org-babel-R-assign-elisp assoc :colnames "yes" :rownames] 7]((x 1 2 3)) mapcar(#[(pair) "address@hidden \"A\305\232\303\306 \"A\305\232$\207" [pair params org-babel-R-assign-elisp assoc :colnames "yes" :rownames] 7] ((x 1 2 3))) org-babel-variable-assignments:R(((:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports . "code") (:results . "replace") (:var x 1 2 3) (:session . "none") (:hlines . "no") (:result-type . value) (:result-params "replace") (:rowname-names) (:colname-names))) org-babel-expand-body:R("x" ((:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports . "code") (:results . "replace") (:var x 1 2 3) (:session . "none") (:hlines . "no") (:result-type . value) (:result-params "replace") (:rowname-names) (:colname-names)) nil) org-babel-execute:R("x" ((:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports . "code") (:results . "replace") (:var x 1 2 3) (:session . "none") (:hlines . "no") (:result-type . value) (:result-params "replace") (:rowname-names) (:colname-names)))
  call-interactively(org-babel-execute-src-block record nil)
  command-execute(org-babel-execute-src-block record)
  execute-extended-command(nil "org-babel-execute-src-block")
  call-interactively(execute-extended-command nil nil)

Not sure if it helps, but for me the problem goes away when I change the following lines in ob-R.el:

What is there currently:
(let ((max (apply #'max (mapcar #'length (org-remove-if-not
                        #'sequencep value))))
       (min (apply #'min (mapcar #'length (org-remove-if-not
                        #'sequencep value))))
What I change it to:
(let* ((lengths (mapcar #'length (org-remove-if-not #'sequencep value)))
         (max (if lengths (apply #'max lengths) 0))
         (min (if lengths (apply #'min lengths) 0))
Bellow you can find my setup.

Best regards,


Emacs : GNU Emacs 24.3.1 (x86_64-apple-darwin13.0.0, NS apple-appkit-1265.00)
 of 2013-10-25 on dmirylenka
Package: Org-mode version 8.2.6 (8.2.6-dist @ /Users/dmirylenka/src/org-8.2.6/lisp/)

current state:
org-tab-first-hook '(org-hide-block-toggle-maybe org-src-native-tab-command-maybe org-babel-hide-result-toggle-maybe org-babel-header-arg-expand) org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-command-hook)
 org-occur-hook '(org-first-headline-recenter)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-confirm-shell-link-function 'yes-or-no-p
 org-after-todo-state-change-hook '(org-clock-out-if-current)
org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
org-mode-hook '(#[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-show-block-all append local] 5] #[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-babel-show-result-all append local] 5]
         org-babel-result-hide-spec org-babel-hide-all-hashes)
org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-maybe) org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-hide-inline-tasks org-cycle-show-empty-lines
 org-confirm-elisp-link-function 'yes-or-no-p
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-babel-load-languages '((R . t))
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]