improve activation check error

Author: EmilHvitfeldt

R/mlp-fit.R

@@ -452,7 +452,10 @@ brulee_mlp_bridge <- function(processed, epochs, hidden_units, activation,
  allowed_activation <- brulee_activations()
  good_activation <- activation %in% allowed_activation
  if (!all(good_activation)) {
-  cli::cli_abort(paste("'activation' should be one of: ", paste0(allowed_activation, collapse = ", ")))
+  cli::cli_abort(
+    "{.arg activation} should be one of: {allowed_activation}, not 
+    {.val {activation}}."
+  )
  }
 
  if (optimizer == "LBFGS" & !is.null(batch_size)) {

tests/testthat/_snaps/mlp-regression.md

@@ -44,7 +44,7 @@
       brulee_mlp(reg_x_mat, reg_y, epochs = 2, activation = NA)
     Condition
       Error in `brulee_mlp_bridge()`:
-      ! 'activation' should be one of: celu, elu, gelu, hardshrink, hardsigmoid, hardtanh, leaky_relu, linear, log_sigmoid, relu, relu6, rrelu, selu, sigmoid, silu, softplus, softshrink, softsign, tanh, tanhshrink
+      ! `activation` should be one of: celu, elu, gelu, hardshrink, hardsigmoid, hardtanh, leaky_relu, linear, log_sigmoid, relu, relu6, rrelu, selu, sigmoid, silu, softplus, softshrink, softsign, tanh, and tanhshrink, not NA.
 
 ---