Commit a8a02e16 authored by Daniela Rabe's avatar Daniela Rabe
Browse files

update progressbar arguments

parent 5df79c45
......@@ -157,7 +157,8 @@ sample_nb <- function(raster,
shinyWidgets::updateProgressBar(
session = session,
id = "pbar",
value = k / (nb_mean + nrow(reference)),
value = k,
total = nb_mean,
title = paste("Doing sampling for model", k)
)
}
......@@ -229,10 +230,13 @@ sample_nb <- function(raster,
}
m[l] <- max(dif[2,], na.rm = T)
if (!progress_bar) {
shinybusy::update_modal_progress(
value = (nb_mean+jj) / (nb_mean + nrow(reference)),
text = paste("Doing prediction for class", jj)
)
shinyWidgets::updateProgressBar(
session = session,
id = "pbar",
value = (nb_mean+jj) / (nb_mean + nrow(reference)),
total = nrow(reference),
title = paste("Doing prediction for class", jj)
)
}
}
index <- which.max(dif[2,])
......
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