check for intercept before trying to remove

Author: topepo

R/predict.R

@@ -244,7 +244,7 @@ prepare_data <- function(object, new_data) {
     get_encoding(class(object$spec)[1]) %>%
     dplyr::filter(mode == object$spec$mode, engine == object$spec$engine) %>%
     dplyr::pull(remove_intercept)
-  if (remove_intercept) {
+  if (remove_intercept & any(grepl("Intercept", names(new_data)))) {
     new_data <- new_data %>% dplyr::select(-dplyr::one_of("(Intercept)"))
   }