R/setTxtProgressBar.R

In Hlch1992/ARZIMM: Statistical modeling and inference of microbial interaction and stability for microbial dynamical systems

setTxtProgressBar=function (pb, value, title = NULL, label = NULL) {
  if (!inherits(pb, "txtProgressBar"))
    stop(gettextf("'pb' is not from class %s", dQuote("txtProgressBar")),
         domain = NA)
  oldval <- pb$getVal()
  pb$up(value)
  invisible(oldval)
}