beepr_error

beepr_error.R

# rasmusab/beepr package is great for telling you when your R code finishes running.
# But if the code throws an error, the beep will never come, and you won't know that
# it finished running until you visually check.
# Solution: change the error handler to a failure beep.

# Example
foo <- function(success = TRUE) {
  if (!success) {
    stop("Error!")
  }
  invisible()
}

foo(); beepr::beep()       # this will beep when done
foo(FALSE); beepr::beep()  # this will never beep

# Solution: just add a beep to the error handler
old_err <- options(error = function(x) beepr::beep(9))

foo(FALSE); beepr::beep()

options(error = old_err$error)