Nick Dokos <nicholas.do...@hp.com> writes:
> Andreas Leha <andreas.l...@med.uni-goettingen.de> wrote:
>
>>
>> Hi Bastien,
>>
>> thanks for looking into this!
>>
>>
>> Bastien <b...@gnu.org> writes:
>>
>> > Andreas Leha <andreas.l...@med.uni-goettingen.de> writes:
>> >
>> >> #+begin_src R :results table
>> >> data.frame(parameter=c("parameter", "", "param1"),
>> >> mean=c("mean sd", "", "1.1 0.1"),
>> >> median=c("median", "(minimum;maximum)", "1 (1;2)"))
>> >> #+end_src
>> >>
>> >> #+results:
>> >
>> > I can't test this because of the character.
>> ^^^^^
>> This character got lost on the mailing list. I guess the offending
>> character was the plus-minus character.
>>
>> This should be testable, I hope:
>>
>> ,----
>> | #+begin_src R :results table
>> | data.frame(parameter=c("parameter", "", "param1"),
>> | mean=c("mean +- sd", "", "1.1 +- 0.1"),
>> | median=c("median", "(minimum;maximum)", "1 (1;2)"))
>> | #+end_src
>> |
>> | #+results:
>> `----
>>
>> Again, this works as expected, if "(minimum" is replaced by "minimum".
>>
>
> This happens in org-babel-import-elisp-from-file, when org-babel-string-read
> is mapped on each row. To wit:
>
> (org-babel-string-read "foo)") --> "foo)"
>
> but
>
> (org-babel-string-read "(foo)") --> Error
>
> The backtrace for the error says:
>
> ,----
> | Debugger entered--Lisp error: (void-function foo)
> | (foo)
> | eval((foo))
> | (if (and (not inhibit-lisp-eval) (member (substring cell 0 1)
> | (quote ("(" "'" "`" "[")))) (eval (read cell)) (if (string=
> | (substring cell 0 1) "\"") (read cell) (progn (set-text-properties 0
> | (length cell) nil cell) cell)))
> | (or (org-babel-number-p cell) (if (and (not inhibit-lisp-eval)
> | (member (substring cell 0 1) (quote ("(" "'" "`" "[")))) (eval (read
> | cell)) (if (string= (substring cell 0 1) "\"") (read cell) (progn
> | (set-text-properties 0 (length cell) nil cell) cell))))
> | (if (and (stringp cell) (not (equal cell ""))) (or
> | (org-babel-number-p cell) (if (and (not inhibit-lisp-eval) (member
> | (substring cell 0 1) (quote ("(" "'" "`" "[")))) (eval (read cell))
> | (if (string= (substring cell 0 1) "\"") (read cell) (progn
> | (set-text-properties 0 (length cell) nil cell) cell)))) cell)
> | org-babel-read("(foo)")
> | org-babel-string-read("(foo)")
> `----
>
> Nick
Hi Nick,
thanks for that analysis! I had tried replacing "(" with "[" without
success. Now I "know" why:
(org-babel-string-read "[foo)") --> Error
,----
| Debugger entered--Lisp error: (invalid-read-syntax ") or . in a vector")
| read("[foo)")
| org-babel-read("[foo)")
| org-babel-string-read("[foo)")
| eval((org-babel-string-read "[foo)") nil)
| eval-last-sexp-1(nil)
| eval-last-sexp(nil)
| call-interactively(eval-last-sexp nil nil)
`----
Regards,
Andreas
