使用withProgress（）时如何动态配置incProgress（）？

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)
                  })
                }
              )