Как настроить incProgress () динамически при использовании withProgress ()?

Question

Я действительно изо всех сил пытаюсь понять, как увеличить индикатор выполнения с помощью withProgress().Как получить точное время, необходимое для выполнения моей задачи и синхронизации с индикатором хода выполнения?

Рассмотрим этот пример при экспорте модели SVM. Может потребоваться некоторое время, как установить incProgress?На самом деле он застревает на более или менее 10% своего размера, а затем закрывается, когда задача завершена.

output$download_SV <- downloadHandler(

                filename = function() {
                  "model_svm_reg.rds"
                },
                content = function(fname) {
                  withProgress(message = 'Exporting model, please wait ...', {
                  incProgress(?)
                  saveRDS(fit_SV(), fname)
                  })
                }
              )