Correct cli abort calls

Author: olivroy

R/addins.R

@@ -68,7 +68,7 @@ style_active_file <- function() {
   } else if (is_r_file) {
     out <- try_transform_as_r_file(context, transformer)
   } else {
-    abort("Can only style .R, .Rmd and .Rnw files.")
+    abort("Can only style .R, .qmd, .Rmd, and .Rnw files.")
   }
   rstudioapi::modifyRange(
     c(1L, 1L, length(context$contents) + 1L, 1L),
@@ -98,10 +98,10 @@ save_after_styling_is_active <- function() {
   op_new <- getOption("styler.save_after_styling", default = "")
   if (!is.na(op_old)) {
     rlang::warn(paste(
-      "Using the environment variable save_after_styling is depreciated and",
-      "won't work in a future version of styler. Please use the R option",
-      "`styler.save_after_styling` to control the behavior. If both are set,",
-      "the R option is taken."
+      "Using the environment variable `save_after_styling` is deprecated and",
+      "won't work in a future version of styler. Please use",
+      "`options(styler.save_after_styling)` to control the behavior. If both are set,",
+      "the R option is used."
     ))
   }
 

R/parse.R

@@ -95,10 +95,10 @@ get_parse_data <- function(text, include_text = TRUE, ...) {
   if (getRversion() < "4.2") {
     is_unicode_parsing_error <- grepl("^\"<U\\+[0-9]+>\"$", pd$text)
     if (any(is_unicode_parsing_error)) {
-      rlang::abort(paste0(
-        "Can't parse input due to unicode restriction in base R. Please ",
-        "upgrade R to >= 4.2 to style this input. ",
-        "Context: https://github.com/r-lib/styler/issues/847"
+      cli::cli_abort(c(
+        "Can't parse input due to unicode restriction in base R.",
+        i = "Please upgrade R to >= 4.2 to style this input. ",
+        "Context: {.url https://github.com/r-lib/styler/issues/847}"
       ))
     }
   }

R/stylerignore.R

@@ -76,9 +76,10 @@ add_stylerignore <- function(pd_flat) {
   pd_flat$indicator_off <- cumsum_start + cumsum_stop
   is_invalid <- cumsum_start - cumsum_stop < 0L | cumsum_start - cumsum_stop > 1L
   if (any(is_invalid)) {
-    cli::cli_warn(paste0(
-      "Invalid stylerignore sequences found, potentially ignoring some of the ",
-      "markers set.\nSee {.help styler::stylerignore}."
+    cli::cli_warn(c(
+      "Invalid stylerignore sequences found, potentially ignoring some of the \\
+      markers set.",
+      i = "See {.topic styler::stylerignore}."
     ))
   }
 

R/transform-code.R

@@ -22,7 +22,7 @@ transform_code <- function(path, fun, ..., dry) {
       ..., dry = dry
     )
   } else {
-    abort(paste(path, "is not an R, Rmd, qmd, or Rnw file"))
+    cli::cli_abort("{.path {path}} is not an R, Rmd, qmd, or Rnw file.")
   }
 }
 

R/zzz.R

@@ -66,7 +66,7 @@ ask_to_switch_to_non_default_cache_root <- function(ask = interactive()) {
 ask_to_switch_to_non_default_cache_root_impl <- function() {
   cli::cli_inform(paste0(
     "{{styler}} cache is cleared after 6 days. ",
-    "See {.help styler::caching} to configure differently or silence this message."
+    "See {.topic styler::caching} to configure differently or silence this message."
   ))
 }