The R Project SVN R

Rev

Rev 59039 | Rev 80130 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 59039 Rev 61150
Line 138... Line 138...
138 
  t2 <- function() {
 138 
  t2 <- function() {
139 
    ## in frame 2 here
 139 
    ## in frame 2 here
140 
    cat("current frame is", sys.nframe(), "\n")
 140 
    cat("current frame is", sys.nframe(), "\n")
141 
    str(sys.calls()) ## list with two components t1() and t2()
 141 
    str(sys.calls()) ## list with two components t1() and t2()
142 
    cat("parents are frame numbers", sys.parents(), "\n") ## 0 1
 142 
    cat("parents are frame numbers", sys.parents(), "\n") ## 0 1
143 
    print(ls(envir=sys.frame(-1))) ## [1] "aa" "t2"
 143 
    print(ls(envir = sys.frame(-1))) ## [1] "aa" "t2"
144 
    invisible()
 144 
    invisible()
145 
  }
 145 
  }
146 
  t2()
 146 
  t2()
147 
}
 147 
}
148 
t1()
 148 
t1()