Add alert to R side internal errors

r-lib · May 20, 2021 · e417116 · e417116
1 parent 8525f5a
commit e417116
Showing 1 changed file with 4 additions and 2 deletions.
diff --git 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),