R package, Caret RFE function, how to customize metric to use AUC?

R package, Caret RFE function, how to customize metric to use AUC?

I want to use AUC as the performance measure, but RFE only support RMSE,
RSquared, Accuracy, Kappa. How can I use a customized metric such as auc?