R/SCProgressMonitor.R

###
### $Id: SCProgressMonitor.R 859 2014-07-06 19:25:22Z proebuck $
###


##=============================================================================
setClass("SCProgressMonitor",
         contains="DefaultProgressMonitor",            ## inheritance
         representation(stage="character",             ## stage label value
                        marquee="character"))          ## marquee label value


##-----------------------------------------------------------------------------
is.SCProgressMonitor <- function(x) {
    extends(class(x), "SCProgressMonitor")
}


##-----------------------------------------------------------------------------
## Generates a SCProgressMonitor object.
SCProgressMonitor <- function(stage="") {
    new("SCProgressMonitor",
        stage=stage)
}


##
## SCProgressMonitor
##

##-----------------------------------------------------------------------------
setMethod("progressStage",
    signature(object="SCProgressMonitor"),
    function(object) {
        #message('progressStage(SCProgressMonitor)')
        object@stage
    })


##-----------------------------------------------------------------------------
setReplaceMethod("progressStage",
    signature(object="SCProgressMonitor", value="character"),
    function(object,
             value) {
        #message('progressStage<-(SCProgressMonitor, character)')
        stopifnot(length(value) == 1)
        object@stage <- value
        #progressMarquee(object) <- ""
        object@marquee <- ""
        object@label <- ""
        object@elapsed <- elapsed(object)
        object
    })


##-----------------------------------------------------------------------------
setMethod("progressMarquee",
    signature(object="SCProgressMonitor"),
    function(object) {
        #message('progressMarquee(SCProgressMonitor)')
        object@marquee
    })


##-----------------------------------------------------------------------------
setReplaceMethod("progressMarquee",
    signature(object="SCProgressMonitor", value="character"),
    function(object,
             value) {
        #message('progressMarquee<-(SCProgressMonitor, character)')
        stopifnot(length(value) == 1)
        object@marquee <- value
        #progressLabel(object) <- ""
        object@label <- ""
        object@elapsed <- elapsed(object)
        object
    })

Try the SuperCurve package in your browser

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

SuperCurve documentation built on May 2, 2019, 6:14 p.m.