R 如何在操作完成后播放超过n秒的声音

如果操作耗时超过n秒，我希望能够在操作完成后播放声音。如果有帮助的话，我正在使用RStudio。蒂亚

my_operation <- function() {
  start_time = Sys.time()
  
  # the thing I need to do taking uncertain time
  Sys.sleep(runif(1, max = 4))

  time_taken  = Sys.time() - start_time
  
  if(time_taken > 3) {
    beepr::beep("mario")
    Sys.sleep(1) # I've had R crash if play a beepr sound w/o 
                 #   a sleep in non-interactive mode
  }
  
  time_taken
}

---

运行虚拟任务需要0-4秒。如果时间超过3秒，它就会发出声音。

我想你可以通过一些研究发现这一点。只是研究：1）如何在RStudio中播放声音，2，如何计时。然后在此时间之后调用声音函数。我只是说你可以自己轻松地解决这个问题。请参见

beeper

package@AnilGoyal这和IDE有什么关系？@Phil我很抱歉假设OP想在IDE中玩beep。谢谢你指出这一点。我的错误。

my_operation()