Merge pull request #484 from tidymodels/multi-predict-error

Fix error message for `multi_predict()`

Author: topepo

R/aaa_multi_predict.R

@@ -31,7 +31,7 @@ multi_predict.default <- function(object, ...)
   rlang::abort(
     glue::glue(
       "No `multi_predict` method exists for objects with classes ",
-      glue::glue_collapse(glue::glue("'{class()}'"), sep = ", ")
+      glue::glue_collapse(glue::glue("'{class(object)}'"), sep = ", ")
       )
     )
 

tests/testthat/test_misc.R

@@ -14,13 +14,22 @@ test_that('parsnip objects', {
   lm_fit <- fit(lm_idea, mpg ~ ., data = mtcars)
   expect_false(has_multi_predict(lm_fit))
   expect_false(has_multi_predict(lm_fit$fit))
+  expect_error(
+    multi_predict(lm_fit, mtcars),
+    "No `multi_predict` method exists"
+  )
 
   mars_fit <-
     mars(mode = "regression") %>%
     set_engine("earth") %>%
     fit(mpg ~ ., data = mtcars)
   expect_true(has_multi_predict(mars_fit))
   expect_false(has_multi_predict(mars_fit$fit))
+  expect_error(
+    multi_predict(mars_fit$fit, mtcars),
+    "No `multi_predict` method exists"
+  )
+
 })
 
 test_that('other objects', {