be more specific in testing of LiblineaR penalty

Author: EmilHvitfeldt

R/logistic_reg.R

@@ -154,10 +154,10 @@ check_args.logistic_reg <- function(object, call = rlang::caller_env()) {
       )
     }
 
-    if ((!is.null(args$penalty)) && args$penalty <= 0) {
+    if ((!is.null(args$penalty)) && args$penalty == 0) {
       cli::cli_abort(
         "For the {.pkg LiblineaR} engine, {.arg penalty} must be {.code > 0}, \\
-        not {args$penalty}.",
+        not 0.",
         call = call
       )
     }