R help - Feb 2013 - sys.frame() and variables from parent frame

Dear R-help,

I wrote the following lines in order to use a variable from a parent 
frame in my callM() function. I would like to solve this by only editing 
the callM(function). When I run this code I obtain a empty list, meaning 
that eval(ls(),sys.frame(-1)) could not access the variables in the 
parent function. Any suggestions? Thanks in advance!

metaCall <- function()
   {
     NN <- 99
     callM()
     }

callM <- function()
   {
     Ls <- eval(ls(),sys.frame(-1))
     print(Ls)
     ### use Ls to call a certain model named M
     }

metaCall()




-- 
   Z? Miguel
   _______________________________

   JM Delgado
   Reichenberger Str. 52
   10999 Berlim
   Alemanha

   t(d):+49 30 841 18 127
   m(d):+49 176 9633 92 56
   m(p):+351 91 671 07 08

On Feb 26, 2013, at 2:40 AM, Jos? Miguel Delgado wrote:
> Dear R-help,
> 
> I wrote the following lines in order to use a variable from a parent frame
in my callM() function. I would like to solve this by only editing the
callM(function). When I run this code I obtain a empty list, meaning that
eval(ls(),sys.frame(-1)) could not access the variables in the parent function.
Any suggestions? Thanks in advance!
> 
> metaCall <- function()
>  {
>    NN <- 99
>    callM()
>    }
> 
> callM <- function()
>  {
>    Ls <- eval(ls(),sys.frame(-1))
>    print(Ls)
>    ### use Ls to call a certain model named M
That doesn't make much sense.
>    }
> 
> metaCall()
> 
I don't think you need the eval() call:

 metaCall <- function()
 {
   NN <- 99
   callM()
   }

callM <- function()
 {
   Ls <- ls(env=sys.frame(-1))
   cat(Ls)
   }

metaCall()
NN

You should be aware that metaCall will not return anything since the last value
is from the cat()-call or the print()-call and they each return NULL. If you
wanted to go on from there and do something with 'NN", which is no
longer a number but rather a character vector, you could, however.

Oh, I think I finally see .... the eval() was an attempt to retrieve  the object
named "NN"" in the parent.frame? That means you need :

?get

metaCall <- function()
 {
   NN <- 99
   callM()
   }

callM <- function()
 {
   Ls <- ls(env=sys.frame(-1))
   str(get(Ls, env=sys.frame(-1)))
   }

metaCall()
# num 99

-- 
David Winsemius
Alameda, CA, USA