Use linear_reg translate for multinom_reg for now

Author: juliasilge

R/multinom_reg.R

@@ -96,29 +96,7 @@ print.multinom_reg <- function(x, ...) {
 }
 
 #' @export
-translate.multinom_reg <- function(x, engine = x$engine, ...) {
-  x <- translate.default(x, engine, ...)
-
-  if (engine == "glmnet") {
-    check_glmnet_penalty(x)
-    if (any(names(x$eng_args) == "path_values")) {
-      # Since we decouple the parsnip `penalty` argument from being the same
-      # as the glmnet `lambda` value, `path_values` allows users to set the
-      # path differently from the default that glmnet uses. See
-      # https://github.com/tidymodels/parsnip/issues/431
-      x$method$fit$args$lambda <- x$eng_args$path_values
-      x$eng_args$path_values <- NULL
-      x$method$fit$args$path_values <- NULL
-    } else {
-      # See discussion in https://github.com/tidymodels/parsnip/issues/195
-      x$method$fit$args$lambda <- NULL
-    }
-    # Since the `fit` information is gone for the penalty, we need to have an
-    # evaluated value for the parameter.
-    x$args$penalty <- rlang::eval_tidy(x$args$penalty)
-  }
-  x
-}
+translate.multinom_reg <- translate.linear_reg
 
 # ------------------------------------------------------------------------------