Using the handy .internal = TRUE of rlang::abort()

* update snapshot

Author: olivroy

R/parse.R

@@ -158,9 +158,8 @@ ensure_correct_txt <- function(pd, text) {
 
   if (!lines_and_cols_match(new_text)) {
     abort(paste(
-      "Error in styler:::ensure_correct_txt().",
-      "Please file an issue on GitHub (https://github.com/r-lib/styler/issues)"
-    ))
+      "Error in styler:::ensure_correct_txt()."
+    ), .internal = TRUE)
   }
   names_to_keep <- setdiff(
     names(new_text),

R/transform-files.R

@@ -418,19 +418,16 @@ verify_roundtrip <- function(old_text, new_text, parsable_only = FALSE) {
       error = function(e) {
         rlang::abort(paste0(
           "Styling resulted in code that isn't parsable. This should not ",
-          "happen. Please file a bug report on GitHub ",
-          "(https://github.com/r-lib/styler/issues) using a reprex."
-        ))
+          "happen."
+        ), .internal = TRUE)
       }
     )
   } else if (!expressions_are_identical(old_text, new_text)) {
     msg <- paste(
       "The expression evaluated before the styling is not the same as the",
-      "expression after styling. This should not happen. Please file a",
-      "bug report on GitHub (https://github.com/r-lib/styler/issues)",
-      "using a reprex."
+      "expression after styling. This should not happen."
     )
-    abort(msg)
+    abort(msg, .internal = TRUE)
   }
 }
 

tests/testthat/_snaps/roundtrip.md

@@ -5,5 +5,7 @@
 
 # corrupt styling does give an error
 
-    The expression evaluated before the styling is not the same as the expression after styling. This should not happen. Please file a bug report on GitHub (https://github.com/r-lib/styler/issues) using a reprex.
+    The expression evaluated before the styling is not the same as the expression after styling. This should not happen.
+    i This is an internal error that was detected in the styler package.
+      Please report it at <https://github.com/r-lib/styler/issues> with a reprex (<https://tidyverse.org/help/>) and the full backtrace.