Use tidymodels to solve the binary logistic model

Not installed R Install the package by yourself ~

suppressPackageStartupMessages(library(tidyverse))
suppressPackageStartupMessages(library(tidymodels))
tidymodels_prefer()

For demonstration , It must be a good data to illustrate the problem , The data used today , The result variable is a binary .
Altogether 91976 That's ok ,26 Column , among play_type Is the result variable , Factor type , The remaining columns are predictive variables .

all_plays <- read_rds("../000files/all_plays.rds")
glimpse(all_plays