R help - Aug 2004 - function(...) {}

R-help

Assignments within functions are local and temporary,right?(function 1)
If arguments to another function (function 2) are objects created in function 1
and need to call function 2,,,,,,,then it won't work,Am i right?
I have nested the functions but still do not work.

How can this (it may be simple but I don' know how to get around this) be
done??

Thank you




Luis Ridao Cruz
Fiskiranns??knarstovan
N??at??n 1
P.O. Box 3051
FR-110 T??rshavn
Faroe Islands
Phone:             +298 353900
Phone(direct): +298 353912
Mobile:             +298 580800
Fax:                 +298 353901
E-mail:              luisr at frs.fo
Web:                www.frs.fo

Luis Rideau Cruz <Luisr <at> frs.fo> writes:
> 
> R-help
> 
> Assignments within functions are local and temporary,right?(function 1)
> If arguments to another function (function 2) are objects created in 
function 1 and need to call function
> 2,,,,,,,then it won't work,Am i right?
> I have nested the functions but still do not work.
> 
> How can this (it may be simple but I don' know how to get around this)
be
done??

Try this:

f1 <- function() {
   f2 <- function(x) assign(as.character(substitute(x)), x+1, parent.frame())
   z <- 1
   f2(z)
   z   # x has value 
}
f1() # 2

# Actually, you don't have to nest them since parent.frame refers to the
# environment of the caller:

f2 <- function(x) assign(as.character(substitute(x)), x+1, parent.frame())
f1 <- function() {
   z <- 1
   f2(z)
   z   # x has value 
}
f1() # 2