emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Bug: R code block fails on one-dimensional variable [8.2.6 (8.2.6-dist @ /Users/dmirylenka/src/org-8.2.6/lisp/)]
@ 2014-05-19 20:01 Daniil Mirylenka
  2014-05-21  2:22 ` Bastien
  0 siblings, 1 reply; 2+ messages in thread
From: Daniil Mirylenka @ 2014-05-19 20:01 UTC (permalink / raw)
  To: emacs-orgmode

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)
  )

^ permalink raw reply	[flat|nested] 2+ messages in thread

* 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/)]
  2014-05-19 20:01 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
@ 2014-05-21  2:22 ` Bastien
  0 siblings, 0 replies; 2+ messages in thread
From: Bastien @ 2014-05-21  2:22 UTC (permalink / raw)
  To: Daniil Mirylenka; +Cc: emacs-orgmode

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

^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2014-05-21  2:23 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2014-05-19 20:01 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
2014-05-21  2:22 ` Bastien

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).