Проблема с подбором модели в Tidymodels: Ошибка: ! Невозможно использовать NA в качестве индекса столбца с `[` в позициях 3 и 4:\

Пишу проект на Tidymodels. Я создал набор train и test, разложил recipe и model. Когда я вызываю workflow(), добавляю recipe и model, затем вызываю fit(data = df_train, я получаю следующую ошибку.

Error:
! Can't use NA as column index with `[` at positions 3 and 4.

Я использую R версии 4.1.3 и R Studio 2022.02.0 Build 443.

Для воспроизводимости вот рабочий процесс. Обратите внимание, что данные находятся на GitHub, поэтому для загрузки данных вам потребуется подключение к Интернету.

## Load package manager

if (!require(pacman)){
  
  install.packages("pacman")
  
}

## Load required packages. Download them if they do not exist in my system.

pacman::p_load(tidyverse, kableExtra, skimr, knitr, glue, GGally, 
               
               corrplot, tidymodels, themis, stargazer, rpart, rpart.plot, 
               
               vip, patchwork, data.table)

Следующим шагом будет загрузка данных.

df <- fread('https://raw.githubusercontent.com/Karuitha/data_projects/master/employee_turnover/data/employee_churn_data.csv') %>%

  mutate(left = factor(left, levels = c("yes", "no")))

Затем я разделяю данные на обучающий и тестовый наборы и создаю рецепт.

## Create a split object consisting 75% of data
split_object <- initial_split(df, prop = 0.75, 
                              
                              strata = left)

## Generate the training set
df_train <- split_object %>%
  
  training()

## Generate the testing set
df_test <- split_object %>%
  
  testing()

###############################################
## Create a recipe
df_recipe <- recipes::recipe(left ~ ., 
                             
                             data = df_train) %>%
  
  ##We upsample the data to balance the outcome variable
  themis::step_upsample(left, 
                        
                        over_ratio = 1, 
                        
                        seed = 500) %>%
  
  ##We make all character variables factors
  step_string2factor(all_nominal_predictors()) %>%
  
  ##We remove one in a pair of highly correlated variables
  ## The threshold for removal is 0.85 (absolute) 
  ## The choice of threshold is subjective. 
  step_corr(all_numeric_predictors(), 
            
            threshold = 0.85) %>%
  
  ## Train these steps on the training data
  prep(training = df_train)

Затем я определяю модель и пытаюсь подогнать ее.

## Define a logistic model
logistic_model <- logistic_reg() %>%
  
  set_engine("glm") %>%
  
  set_mode("classification")

Тогда подгоните.

workflow() %>% 
  
  add_recipe(df_recipe) %>% 
  
  add_model(logistic_model) %>% 
  
  fit(data = df_train)

Вот где я получаю ошибку

Error:
! Can't use NA as column index with `[` at positions 3 and 4.

Я проверял и перепроверял. Любая помощь приветствуется.