Hello, I'm really struggling to understand how to increment the progress bar using withProgress(). How do I get the exactely time needed to complete my task and sync it to the bar progress?
Consider this example on exporting a SVM Model, it may take a while, how do I set the incprogress ? Actually its stucking at more or less 10% of its size and then it closes when the task is finished.
output$download_SV <- downloadHandler(
filename = function() {
"modelo_svm_reg.rds"
},
content = function(fname) {
withProgress(message = 'Exporting model, please wait ...', {
incProgress(?)
saveRDS(fit_SV(), fname)
})
}
)