R/AllProgressMonitorGenerics.R

###
### $Id: AllProgressMonitorGenerics.R 833 2014-06-27 16:17:07Z proebuck $
###


##
## Accessors
##
if (!isGeneric("elapsed")) {
    setGeneric("elapsed",
               function(object, ...) standardGeneric("elapsed"))
}

if (!isGeneric("progressLabel")) {
    setGeneric("progressLabel",
               function(object, ...) standardGeneric("progressLabel"))
}

if (!isGeneric("progressValue")) {
    setGeneric("progressValue",
               function(object, ...) standardGeneric("progressValue"))
}

if (!isGeneric("progressMaximum")) {
    setGeneric("progressMaximum",
               function(object, ...) standardGeneric("progressMaximum"))
}

if (!isGeneric("progressMinimum")) {
    setGeneric("progressMinimum",
               function(object, ...) standardGeneric("progressMinimum"))
}

if (!isGeneric("progressError")) {
    setGeneric("progressError",
               function(object, ...) standardGeneric("progressError"))
}

if (!isGeneric("progressDone")) {
    setGeneric("progressDone",
               function(object, ...) standardGeneric("progressDone"))
}

##
## Mutators
##
if (!isGeneric("progressLabel<-")) {
    setGeneric("progressLabel<-",
               function(object, ..., value) standardGeneric("progressLabel<-"))
}

if (!isGeneric("progressValue<-")) {
    setGeneric("progressValue<-",
               function(object, ..., value) standardGeneric("progressValue<-"))
}

if (!isGeneric("progressMaximum<-")) {
    setGeneric("progressMaximum<-",
             function(object, ..., value) standardGeneric("progressMaximum<-"))
}

if (!isGeneric("progressMinimum<-")) {
    setGeneric("progressMinimum<-",
             function(object, ..., value) standardGeneric("progressMinimum<-"))
}

if (!isGeneric("progressError<-")) {
    setGeneric("progressError<-",
               function(object, ..., value) standardGeneric("progressError<-"))
}

if (!isGeneric("progressDone<-")) {
    setGeneric("progressDone<-",
               function(object, ..., value) standardGeneric("progressDone<-"))
}

Try the SuperCurve package in your browser

Any scripts or data that you put into this service are public.

SuperCurve documentation built on Nov. 17, 2017, 2:28 p.m.