Get chunkwise on.exit() working

[hadley]

@lionel- has a hack to fix this:

evaluate::evaluate(c(
  "on.exit(print('bye'))",
  "print('hi')"
))
#> <evaluation>
#> Source code: 
#>   on.exit(print('bye'))
#> Text output: 
#>   [1] "bye"
#> Source code: 
#>   print('hi')
#> Text output: 
#>   [1] "hi"

^{Created on 2024-07-03 with reprex v2.1.0}