如何跟踪R中另一个函数创建的函数？

Question

我正在尝试跟踪在其中创建的函数f1 另一个函数h()。但是，以下表明我无法做到 跟踪它甚至我指定“在哪里”。有谁知道如何解决这个问题 问题

R> g=function() {
+   x=1
+   f=function() {
+     y=x+1
+     y+2
+   }
+ }
R>
R> h=function() {
+ f1=g()
+ f1()
+ }
R> trace(h, browser)
[1] "h"
R> h()
Tracing h() on entry
Called from: eval(expr, envir, enclos)
Browse[1]> n
debug: {
    f1 = g()
    f1()
}
Browse[2]> n
debug at #2: f1 = g()
Browse[2]> n
debug at #3: f1()
Browse[2]> trace(f1, browser, where=environment(f1))
Tracing function "f1" in package "base"
[1] "f1"