R/is_error.R

In guiboucher/INESSS-inesss: INESSS

#' Erreurs
#'
#' Permet de prédire si une expression renvoie une erreur ou non.
#'
#' @param expr Fonction ou code. Si plusieurs lignes de code, mettre entre accolades `{}`.
#'
#' @return TRUE/FALSE
#' @importFrom testthat capture_error
#' @export
is_error <- function(expr){
  error <- capture_error(expr)
  if(is.null(error)) return(FALSE) else return(TRUE)
}