break up message into multiple lines

Author: EmilHvitfeldt

R/logistic_reg.R

@@ -145,11 +145,11 @@ check_args.logistic_reg <- function(object, call = rlang::caller_env()) {
   if (object$engine == "LiblineaR") {
     if (is.numeric(args$mixture) && !args$mixture %in% 0:1) {
       cli::cli_abort(
-        "For the {.pkg LiblineaR} engine, mixture must be 0 or 1,\\
-        not {args$mixture}.\\
-        Choose a pure ridge model with {.code mixture = 0}.\\
-        Choose a pure lasso model with {.code mixture = 1}.\\
-        The {.pkg Liblinear} engine does not support other values.",
+        c("x" = "For the {.pkg LiblineaR} engine, mixture must be 0 or 1,\\
+                not {args$mixture}.",
+          "i" = "Choose a pure ridge model with {.code mixture = 0} or \\
+                a pure lasso model with {.code mixture = 1}.",
+          "!" = "The {.pkg Liblinear} engine does not support other values."),
         call = call
       )
     }

tests/testthat/_snaps/logistic_reg.md

@@ -57,7 +57,9 @@
       fit(spec, Class ~ ., lending_club)
     Condition
       Error in `fit()`:
-      ! For the LiblineaR engine, mixture must be 0 or 1,not 0.5.Choose a pure ridge model with `mixture = 0`.Choose a pure lasso model with `mixture = 1`.The Liblinear engine does not support other values.
+      x For the LiblineaR engine, mixture must be 0 or 1,not 0.5.
+      i Choose a pure ridge model with `mixture = 0` or a pure lasso model with `mixture = 1`.
+      ! The Liblinear engine does not support other values.
 
 ---