实际上，trace所做的（对于常规函数）就是在函数体内的所需位置插入对.doTrace的调用。我们可以手动执行相同的操作以达到完全相同的效果。
但是在你的例子中，我们想要 remove 而不是add;我们也可以这样做：

modified_body <- body(g)
modified_body[4] <- NULL

original_body <- body(g)
body(g) <- modified_body

g()

# “untrace”:
body(g) <- original_body

我尝试将修改后的函数体作为tracer传递给trace，让它在trace中工作。不幸的是，我无法阻止原始函数在之后执行：向tracer添加显式的return()调用没有任何作用（因为.doTrace使用eval.parent来计算tracer代码，而eval内部的return不会退出调用范围）。我 * 可以 * 使用stop()而不是return()。然而，这是不希望的，因为它总是下降到 * 顶层 * 而不是g的调用者。我试图通过安装globalCallingHandler来影响这一点，但没有适当的重启我可以调用，并且无论如何，定期的重新启动会使我们直接回到g，而不是它的调用者。
我不知道这是否可以规避，甚至在原则上：它本质上需要修改活动调用堆栈-重新启动 do，但据我所知只有非常有限的方式（即通过abort重新启动删除整个调用堆栈，或通过在最内层调用帧内恢复）。

这里有几种方法，都以某种方式依赖于重新定义cat。

1）将cat重新定义为list像这样重新定义cat。如果不需要Tracing消息，请添加print=FALSE参数。

trace(g, quote(cat <- list), at = 4)
## [1] "g"

g()
## Message
## Tracing g() step 4 
## [1] 0.6007088

2）检查cat arg另一种方法是：

trace(g, quote(cat <- \(x, ...) if (x != "Message 2\n") base::cat(x, ...)))
## [1] "g"

g()
## Tracing g() on entry 
## Message
## [1] 1.997213

3）计算cat调用次数设置i为0，然后每次调用cat时更新一次，如果不是第二次才执行。

trace(g, quote({ i <- 0; cat <- \(...) if ((i <<- i + 1) != 2) base::cat(...)}))
## [1] "g"

g()
## Tracing g() on entry 
## Message
## [1] 0.6007088