R/toggle_error.R

In MCMaurer/MCMsBasics: Helps Michael Culshaw-Maurer Get Stuff Done

#' Toggle error handling between rlang::entrace() and recover()
#'
#'
#' @import rlang
#' @export
#'
#'
#'

toggle_error <- function(){
  op <- options()
  e <- as.character(op$error)

  if(grepl("frame number", e)){
    options(error = rlang::entrace)
    message("Errors now use rlang::entrace")
  } else {
    options(error = recover)
    message("Errors now use recover")
  }

}