From e417116422d93c7fb71a21792e248e1bb6f44ba6 Mon Sep 17 00:00:00 2001 From: Lionel Henry Date: Thu, 20 May 2021 11:42:47 +0200 Subject: [PATCH] Add alert to R side internal errors --- R/utils.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/R/utils.R b/R/utils.R index 6d6f81a0d6..96609d53c2 100644 --- a/R/utils.R +++ b/R/utils.R @@ -287,9 +287,11 @@ split_lines <- function(x) { } stop_internal <- function(fn, msg) { - abort(sprintf("Internal error in `%s()`: %s", fn, msg)) + abort(c( + sprintf("Internal error in `%s()`: %s", fn, msg), + "!" = "This error should be reported to the package authors." + )) } - stop_internal_c_lib <- function(fn, msg) { msg <- c( sprintf("Internal error in `%s()`: %s", fn, msg),