Tweak message to make it shorter.

Author: olivroy

R/utils-git.R

@@ -193,15 +193,22 @@ challenge_uncommitted_changes <- function(
     rstudioapi::documentSaveAll()
   }
 
-  default_msg <- "
-    There are uncommitted changes, which may cause problems or be lost when \\
-    we {.or {which}}"
-  msg <- glue(msg %||% default_msg)
-  if (git_uncommitted(untracked = untracked)) {
-    if (ui_yep(c(
-      "!" = msg,
-      " " = "Do you want to proceed anyway?"
-    ))) {
+  default_msg <-
+    "Uncommitted changes may cause problems or be lost when we {.or {which}}."
+  msg <- cli::format_inline(msg %||% default_msg)
+
+  uncommited <- git_status(untracked)
+  if (nrow(uncommited) > 0) {
+    choice <- utils::menu(
+      c(
+        "I want to proceed anyway.",
+        cli::format_inline(
+          "I want to take a closer look at {.file {uncommited$file}} first."
+        )
+      ),
+      title = msg
+    )
+    if (choice == 1) {
       return(invisible())
     } else {
       ui_abort("Uncommitted changes. Please commit before continuing.", call = NULL)