Pretty check_only_modified()

cynkra · Jul 7, 2023 · feca684 · feca684
1 parent 2ad2d4b
commit feca684
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/R/commit-version.R b/R/commit-version.R
@@ -66,12 +66,12 @@ check_clean <- function(forbidden_modifications) {
 
 check_only_modified <- function(allowed_modifications) {
   status <- gert::git_status()
-  if (nrow(status) > 0) {
-    cli::cli_alert_danger("Found untracked/unstaged/staged files in the git index:
-    {.file {unlist(status$file)}}. Please commit or discard them and
-    try again.", wrap = TRUE)
+  if (!all(status$file %in% allowed_modifications)) {
+    cli_abort(c(
+      x = "Found untracked/unstaged/staged files in the git index: {.file {status$file}}.",
+      i = "Please commit or discard them and try again."
+    ))
   }
-  stopifnot(all(unlist(status) %in% allowed_modifications))
 }
 
 check_only_staged <- function(allowed_modifications) {