Получить карет для печати прогресса

Question

Я пытаюсь оптимизировать дерево xgboost с помощью выбора функций с помощью генетического алгоритма карета

results <- gafs(iris[,1:4], iris[,5],
               iters = 2,
               method = "xgbTree",
               metric = "Accuracy",
               gafsControl = gafsControl(functions=caretGA, method="cv", repeats=2, verbose = TRUE),
               trConrol = trainControl(method = "cv", classProbs = TRUE, verboseIter = TRUE)
               )

это, однако, очень медленно, и поэтому я хотел бы построить индикатор выполнения. Однако я не получаю никакого прогресса, хотя я использовал verbose = TRUE и verboseIter = TRUE. Что я делаю не так?