R/update-progress.R

In spsann: Optimization of Sample Configurations using Spatial Simulated Annealing

# Generated by autofun (0.0.0.9000): do not edit by hand!!!
# Please edit source code in R-autofun/update-progress.R
.update_progress<-function(...){
expression(if (!is.null(progress)) {
  if (progress == "txt") {
    utils::setTxtProgressBar(pb, k)
  } else {
    if (progress == "tk") {
      tcltk::setTkProgressBar(pb, k)
    }
  }
})
}