Commit 754ca43c authored by Daniela Rabe's avatar Daniela Rabe
Browse files

new progress bar

parent d7702099
......@@ -153,9 +153,10 @@ sample_nb <- function(raster,
if (progress_bar) {
setTxtProgressBar(pb, k)
} else {
shinybusy::update_modal_progress(
shinyWidgets::updateProgressBar(
id = "pbar",
value = k / (nb_mean + nrow(reference)),
text = paste("Doing sampling for model", k)
title = paste("Doing sampling for model", k)
)
}
}
......
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