From: Gabor Grothendieck <ggrothendieck_at_gmail.com>

Date: Wed 04 Oct 2006 - 15:25:23 GMT

}

R-help@stat.math.ethz.ch mailing list

https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code. Received on Thu Oct 05 01:28:48 2006

Date: Wed 04 Oct 2006 - 15:25:23 GMT

longfun could just pass a, b and d to each of the individual functions and each of the individual functions could pass out back as a return value.

f1 <- f2 <- function(a, b, d) a+b+d

a <- b <- d <- 1

out <- f1(a, b, d)

out <- f2(a, b, d) + out

out

}

f1 <- f2 <- function() with(parent.frame(), a + b + d)

a <- b <- d <- 1

out <- f1()

out <- f2() + out

out

}

a <- b <- d <- 1 environment(f1) <- environment(f2) <- environment() out <- f1() f2() + out

}

longfun3() # 6

On 10/4/06, Meinhard Ploner <meinhardploner@gmx.net> wrote:

> Hello R users,

*>
**> I have a very long function with parts of that looking like a list of
**> jobs. The first part of the function defines a lot of local
**> variables, which are used by the jobs. Now I extracted the "job" part
**> und putted them into an external file, used by "source(, local=T)",
**> which is more comfortable to me. Apart from that it gives me the
**> opportunity that more users can work on the project. Is it possible
**> to define a function for that code and passing to it the environment
**> of f() without save(list=ls()) and load() .... ?
**>
**> Thanks in advance
**> Meinhard Ploner
**>
**> longfun <- f() {
**>
**> ## lot of local variables:
**> a <- ...
**> b <- ...
**> d <- ...
**> ...
**>
**> out <- ...
**>
**> source("job1.txt", local=TRUE) #changes out, uses a, b, d, ...
**>
**> source("job2.txt", local=TRUE) # changes out, uses a, b, d, ...
**> ...
**> }
**>
**>
**>
**> version
**> _
**> platform i386-apple-darwin8.6.1
**> arch i386
**> os darwin8.6.1
**> system i386, darwin8.6.1
**> status
**> major 2
**> minor 3.1
**> year 2006
**> month 06
**> day 01
**> svn rev 38247
**> language R
**> version.string Version 2.3.1 (2006-06-01)
**>
**> ______________________________________________
**> R-help@stat.math.ethz.ch mailing list
**> https://stat.ethz.ch/mailman/listinfo/r-help
**> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
**> and provide commented, minimal, self-contained, reproducible code.
**>
*

R-help@stat.math.ethz.ch mailing list

https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code. Received on Thu Oct 05 01:28:48 2006

Archive maintained by Robert King, hosted by
the discipline of
statistics at the
University of Newcastle,
Australia.

Archive generated by hypermail 2.1.8, at Thu 05 Oct 2006 - 10:30:08 GMT.

*
Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help.
Please read the posting
guide before posting to the list.
*