R: calculate the 10-fold crossvalidated AUC with glmnet and given alpha and lambda

Question

I would like to calculate the 10-fold crossvalidated AUC of an elastic net regression model

Dataset:

library(tidyverse)
library(caret)
library(glmnet)
libr