Commit 6490d47d authored by Romulo Pereira Goncalves's avatar Romulo Pereira Goncalves
Browse files

We need to set the value and not how much to increment.

parent f30d5201
Pipeline #22774 failed with stage
in 11 seconds
......@@ -158,7 +158,7 @@ sample_nb <- function(raster,
setTxtProgressBar(pb, k)
} else {
shinybusy::update_modal_progress(
value = 1 / (nb_mean + nrow(reference)),
value = k / (nb_mean + nrow(reference)),
text = paste("Doing sampling for model", k)
)
}
......@@ -231,7 +231,7 @@ sample_nb <- function(raster,
m[l] <- max(dif[2,], na.rm = T)
if (!progress_bar) {
shinybusy::update_modal_progress(
value = 1 / (nb_mean + nrow(reference)),
value = (nb_mean+jj) / (nb_mean + nrow(reference)),
text = paste("Doing prediction for class", jj)
)
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment