如何判断R中函数是否完成？

Question

当函数完成(成功运行)或未完成时，我想要自动beep() (错误)

根据这个职位，当函数未完成时可以使用options(error = beep)。

每次完成顶级任务时，都会调用addTaskCallback。

那么，如何认识功能的完成呢？

Answer 1

有一个包beepr，请参阅这里

beepr是一个R包，它包含一个函数，beep()，有一个目的:使在任何平台上播放通知声音变得容易。例如，如果您正在后台运行一个长时间的分析，并且希望知道它何时准备就绪，那么它将非常有用。

另见这就是答案。

下面的代码将发出5次响声，每次呼叫f一次。这是因为beep()在on.exit中，如名称所示，它在函数退出时执行其参数。

f <- function(x){
  on.exit(beepr::beep())
  Sys.sleep(x)
}
g <- function(s) {
  for(i in 1:5) {
    f(s)
  }
}

g(1)