From: Andreas Leha <andreas.leha@med.uni-goettingen.de>
To: emacs-orgmode@gnu.org
Subject: Re: org tables into R?
Date: Tue, 06 Jan 2015 10:14:30 +0000 [thread overview]
Message-ID: <oluvbkkfc6x.fsf@med.uni-goettingen.de> (raw)
In-Reply-To: 87zj9xa1ni.fsf@nicolasgoaziou.fr
Hi Aaron and Nicolas,
Thanks for partly fixing this issue. Unfortunately, when working with
source block interactively the issue persists for me. If in the same
sample file I view the source block via 'C-c C-v v' and step through the
generated code line-by-line, the table is again not split into columns.
This time I immediately tried with 'emacs -Q' and I can reproduce the
issue.
Here is the ecm again:
--8<---------------cut here---------------start------------->8---
* test
#+NAME: data
| A | B | C |
|-----+----+----|
| 115 | 76 | 60 |
| 124 | 78 | 55 |
| 118 | 73 | 65 |
| 114 | 75 | 61 |
| 108 | 74 | 82 |
and pass it into R like this, then evaluation (C-c C-c) works, but
stepping through the code generated for viewing (C-c C-v v) does not:
#+BEGIN_SRC R :results output :exports both :session :var data.table=data
names(data.table)
head(data.table)
#+END_SRC
#+results:
: [1] "A" "B" "C"
: A B C
: 1 115 76 60
: 2 124 78 55
: 3 118 73 65
: 4 114 75 61
: 5 108 74 82
#+begin_src emacs-lisp
(concat
(replace-regexp-in-string " on .*" "" (emacs-version))
"\n"
(replace-regexp-in-string " @.*" ")" (org-version nil t))
"\n"
(replace-regexp-in-string "].*" "]" (ess-version)))
#+end_src
#+results:
: GNU Emacs 24.4.50.1 (x86_64-apple-darwin13.3.0, NS appkit-1265.21 Version 10.9.4 (Build 13E28))
: of 2014-09-02
: Org-mode version 8.3beta (release_8.3beta-717-ga8096c)
: ess-version: 14.05 [git: 4283f1304a54502c42707b6a4ba347703f0992dd]
--8<---------------cut here---------------end--------------->8---
Here is what I see in the org babel preview:
--8<---------------cut here---------------start------------->8---
data.table <- local({
con <- textConnection(
"\"A\" \"B\" \"C\"
\"115\" \"76\" \"60\"
\"124\" \"78\" \"55\"
\"118\" \"73\" \"65\"
\"114\" \"75\" \"61\"
\"108\" \"74\" \"82\""
)
res <- utils::read.table(
con,
header = TRUE,
row.names = NULL,
sep = "\t",
as.is = TRUE
)
close(con)
res
})
names(data.table)
head(data.table)
--8<---------------cut here---------------end--------------->8---
And finally, here is my R session, when I step through the code:
--8<---------------cut here---------------start------------->8---
R version 3.1.2 (2014-10-31) -- "Pumpkin Helmet"
Copyright (C) 2014 The R Foundation for Statistical Computing
Platform: x86_64-apple-darwin10.8.0 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
Natural language support but running in an English locale
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> > options(STERM='iESS', str.dendrogram.last="'", editor='emacsclient', show.error.locations=TRUE)
> data.table <- local({
+ con <- textConnection(
+ "\"A\" \"B\" \"C\"
+ \"115\" \"76\" \"60\"
+ \"124\" \"78\" \"55\"
+ \"118\" \"73\" \"65\"
+ \"114\" \"75\" \"61\"
+ \"108\" \"74\" \"82\""
+ )
+ res <- utils::read.table(
+ con,
+ header = TRUE,
+ row.names = NULL,
+ sep = "\t",
+ as.is = TRUE
+ )
+ close(con)
+ res
+ })
> names(data.table)
[1] "A...B...C"
> head(data.table)
A...B...C
1 115 76 60
2 124 78 55
3 118 73 65
4 114 75 61
5 108 74 82
--8<---------------cut here---------------end--------------->8---
Regards,
Andreas
next prev parent reply other threads:[~2015-01-06 10:22 UTC|newest]
Thread overview: 17+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-01-02 19:57 org tables into R? Michael Gauland
2015-01-02 20:13 ` Andreas Leha
2015-01-02 22:45 ` Vikas Rawal
2015-01-04 10:01 ` Andreas Leha
2015-01-05 0:10 ` Aaron Ecay
2015-01-05 11:48 ` Nicolas Goaziou
2015-01-06 4:27 ` Aaron Ecay
2015-01-06 23:08 ` Nicolas Goaziou
2015-01-06 23:17 ` Aaron Ecay
2015-01-06 23:38 ` Nicolas Goaziou
2015-01-06 10:14 ` Andreas Leha [this message]
2015-01-06 11:02 ` Rainer M Krug
2015-01-06 12:07 ` Andreas Leha
2015-01-06 13:37 ` Rainer M Krug
2015-01-06 17:49 ` Aaron Ecay
2015-01-07 9:01 ` Rainer M Krug
2015-01-04 3:19 ` Michael Gauland
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=oluvbkkfc6x.fsf@med.uni-goettingen.de \
--to=andreas.leha@med.uni-goettingen.de \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).