Progress bar not working

[stschl]

pbStep seems not to be working at the moment, text progress bars stay at 0 percent.

I believe this is due to a small bug in pbStep:

pbclass <- class(pb)
	if (inherits(pbclass, "txtProgressBar")) {
		if (is.null(step)) { step = pb$getVal() + 1 }
		utils::setTxtProgressBar(pb, step)
	}

pbclass inherits from character, so second line should be

if (inherits(pb, "txtProgressBar")) {

[rhijmans]

Thanks for spotting that. I think that is due to a hasty replacement of cases of class(x) == "someclass" to inherits(x, "someclass")