`local_trace()` about testthat HOT 2 CLOSED

f <- function() {
  "x"
}
trace(f, quote(return("y")))
#> [1] "f"
body(f)
#> {
#>     .doTrace(return("y"), "on entry")
#>     {
#>         "x"
#>     }
#> }
f()
#> Tracing f() on entry
#> [1] "x"


.doTrace <- function(expr, msg) {
  on <- tracingState(FALSE)
  if (on) {
    on.exit(tracingState(TRUE))
    expr
  }
  
  invisible()
}
f()
#> [1] "y"