Commit 5df79c45 authored by Daniela Rabe's avatar Daniela Rabe
Browse files

added session argument

parent 754ca43c
......@@ -57,7 +57,8 @@ sample_nb <- function(raster,
save_runs,
parallel_mode,
max_num_cores,
progress_bar = TRUE) {
progress_bar = TRUE,
session) {
print(paste(paste("init.samples = ", nb_samples[1]),
paste("models = ", nb_mean)))
###
......@@ -154,6 +155,7 @@ sample_nb <- function(raster,
setTxtProgressBar(pb, k)
} else {
shinyWidgets::updateProgressBar(
session = session,
id = "pbar",
value = k / (nb_mean + nrow(reference)),
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