Bug: R code block fails on one-dimensional variable [8.2.6 (8.2.6-dist @ /Users/dmirylenka/src/org-8.2.6/lisp/)]

Bug: R code block fails on one-dimensional variable [8.2.6 (8.2.6-dist @ /Users/dmirylenka/src/org-8.2.6/lisp/)]

[Daniil Mirylenka]

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)
>   x
> #+END_SRC
What I expect is:
> #+RESULTS:
> | 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)
>   max()
>   apply(max nil)
>   org-babel-R-assign-elisp(x (1 2 3) nil nil)
>   #[(pair) "\302\b@\bA\303\304    \"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) "\302\b@\bA\303\304    \"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)))
>   org-babel-execute-src-block()
>   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,
Daniil

------------------------------------------------------------------------

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:
==============
(setq
  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-optimize-window-after-visibility-change)
  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)
  )

Re: Bug: R code block fails on one-dimensional variable [8.2.6 (8.2.6-dist @ /Users/dmirylenka/src/org-8.2.6/lisp/)]

[Bastien]

Hi Daniil,

Daniil Mirylenka <dmirylenka@disi.unitn.it> writes:

> 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)
>>   x
>> #+END_SRC
> What I expect is:
>> #+RESULTS:
>> | 1 | 2 | 3 |
> Instead, I get no output, and the following error message:

Fixed along your suggestion, thanks,

-- 
 Bastien