[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] Folding in iESS R buffer
From: |
Rainer M Krug |
Subject: |
[O] Folding in iESS R buffer |
Date: |
Mon, 05 May 2014 15:25:08 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3 (darwin) |
Hi
I have modified the variable transfer in ob-R.el so that the variable
transfer code is enclosed as can be seen below.
My idea is that I can fold the R output so that the variable transfer is
collapsed. I understand that I can use one of the org-outside-org minor
modes [1] (presumibly utshine?) - but I can't figure out how.
My questions are:
1) which enclosing should I use to fold the transfer code away?
2) which minor mode should I use for this and how can I configure it?
Cheers,
Rainer
--8<---------------cut here---------------start------------->8---
> ######################################################################
## Beginning org variable transfer
try(detach(.org_variables_), silent=TRUE)
.org_variables_ <- new.env()
assign( 'COLUMNS',
read.table("/var/folders/50/wcr5bjwn75q595n6x82gxj280000gn/T/babel-74428N93/R-import-74428U4A",
header=TRUE, row.names=1, sep="\t", as.is=TRUE ), envir = .org_variables_ );
lockBinding('COLUMNS', .org_variables_)
assign( 'COLS_TO_EVAL',
read.table("/var/folders/50/wcr5bjwn75q595n6x82gxj280000gn/T/babel-74428N93/R-import-74428hCH",
header=TRUE, row.names=1, sep="\t", as.is=TRUE ), envir = .org_variables_ );
lockBinding('COLS_TO_EVAL', .org_variables_)
assign( 'ALLSPECIES',
read.table("/var/folders/50/wcr5bjwn75q595n6x82gxj280000gn/T/babel-74428N93/R-import-74428uMN",
header=TRUE, row.names=1, sep="\t", as.is=TRUE ), envir = .org_variables_ );
lockBinding('ALLSPECIES', .org_variables_)
assign( 'SPECIES',
read.table("/var/folders/50/wcr5bjwn75q595n6x82gxj280000gn/T/babel-74428N93/R-import-744287WT",
header=TRUE, row.names=1, sep="\t", as.is=TRUE ), envir = .org_variables_ );
lockBinding('SPECIES', .org_variables_)
assign( 'YEARS',
read.table("/var/folders/50/wcr5bjwn75q595n6x82gxj280000gn/T/babel-74428N93/R-import-74428IhZ",
header=TRUE, row.names=1, sep="\t", as.is=TRUE ), envir = .org_variables_ );
lockBinding('YEARS', .org_variables_)
assign('PRESENT', 2008, envir = .org_variables_); lockBinding('PRESENT',
.org_variables_)
assign('MINEFFORT', 3, envir = .org_variables_); lockBinding('MINEFFORT',
.org_variables_)
assign('PROPTRAIN', 0.6, envir = .org_variables_); lockBinding('PROPTRAIN',
.org_variables_)
assign('RNGSEED', 13, envir = .org_variables_); lockBinding('RNGSEED',
.org_variables_)
assign('RNGKIND', "Mersenne-Twister", envir = .org_variables_);
lockBinding('RNGKIND', .org_variables_)
assign('RNGNORMALKIND', "Inversion", envir = .org_variables_);
lockBinding('RNGNORMALKIND', .org_variables_)
assign('REFGRID', "./refGrid_8km.rds", envir = .org_variables_);
lockBinding('REFGRID', .org_variables_)
assign('IFN', "./__BOX__/IFN/DB_IFN/rds/tabplot.rds", envir =
.org_variables_); lockBinding('IFN', .org_variables_)
assign('IFNCOUNT',
"./__BOX__/IFN/DB_IFN/rdsRasterized/tabplot.count.8km.rds", envir =
.org_variables_); lockBinding('IFNCOUNT', .org_variables_)
assign('IFNMEAN',
"./__BOX__/IFN/DB_IFN/rdsRasterized/tabplot.mean.8km.rds", envir =
.org_variables_); lockBinding('IFNMEAN', .org_variables_)
assign('IFNPRES',
"./__BOX__/IFN/DB_IFN/rdsRasterized/tabplot.pres.8km.rds", envir =
.org_variables_); lockBinding('IFNPRES', .org_variables_)
assign('IFNSD', "./__BOX__/IFN/DB_IFN/rdsRasterized/tabplot.sd.8km.rds",
envir = .org_variables_); lockBinding('IFNSD', .org_variables_)
assign('IFNTABTREE', "./__BOX__/IFN/DB_IFN/rds/tabtree.rds", envir =
.org_variables_); lockBinding('IFNTABTREE', .org_variables_)
lockEnvironment(.org_variables_)
attach(.org_variables_)
save(.org_variables_, file='org_variables.RData')
## end org variable transfer
######################################################################
--8<---------------cut here---------------end--------------->8---
Footnotes:
[1] http://orgmode.org/worg/org-tutorials/org-outside-org.html
--
Rainer M. Krug, PhD (Conservation Ecology, SUN), MSc (Conservation Biology,
UCT), Dipl. Phys. (Germany)
Centre of Excellence for Invasion Biology
Stellenbosch University
South Africa
Tel : +33 - (0)9 53 10 27 44
Cell: +33 - (0)6 85 62 59 98
Fax : +33 - (0)9 58 10 27 44
Fax (D): +49 - (0)3 21 21 25 22 44
email: address@hidden
Skype: RMkrug
PGP: 0x0F52F982
pgpD6xwKih9P3.pgp
Description: PGP signature
- [O] Folding in iESS R buffer,
Rainer M Krug <=