r - 如何在R中执行每行代码后运行特定函数？

Question

每次命令错误时都可以运行一个函数

options("error" = function() {print("hi")})

我怎样才能实现相同的目的，但让函数在每个 R 命令之后运行？ (不仅仅是那些错误的)

测试是否有效

假设我可以像这样设置一些选项 onCodeExecution

options("onCodeExecution" = function() {set.seed(123})

然后

set.seed(123)
runif(1,0,1);runif(1,0,1)

会回来

[1] 0.2875775
[1] 0.2875775

而不是

[1] 0.2875775
[1] 0.7883051

Answer 1

我们可以使用 addTaskCallback，每次执行函数时都会调用它。

addTaskCallback(function(...) {set.seed(123);TRUE})

runif(1,0,1)
#[1] 0.2875775

runif(1,0,1)
#[1] 0.2875775