R - Rstudio - 如果生成警告/错误，则使 R 播放声音

Question

我正在运行一个循环遍历股票对组合列表的脚本...偶尔，由于对组合之间的数据长度不同而产生错误，脚本会停止运行，我只是将不匹配的股票从考虑中删除）：

Error in model.frame.default(formula = stckY ~ stckX + 0, drop.unused.levels = TRUE) : 
  variable lengths differ (found for 'stckX')

有什么方法可以让 R / Rstudio 在出现错误消息时播放声音，以便在脚本循环时无需一直盯着屏幕而收到警报？

我可以使用以下方法线性生成声音：

beep <- function(n = 3){
    for(i in seq(n)){
        system("rundll32 user32.dll,MessageBeep -1")
        Sys.sleep(.5)
    }
}
beep()

但我该如何根据错误消息执行此条件呢？

Answer 1

基于 @frankc 答案和 @hrbrmstr 评论，一种方法可以做到这一点：

install.packages("beepr")
library(beepr)
options(error = beep)