R/CaptureListener.R

In ralmond/Proc4: Four Process Assessment Database and Dispatcher

#################################################
## CaptureListener

## This a simple listener whose goal is to simply hold the message to
## it can be checked later.

CaptureListener <-
  setRefClass("CaptureListener",
              fields=c(messages="list"),
              methods=list(
                  initialize = function(name="Capture",messages=list(),...)
                    callSuper(name=name,messages=messages,...),
                  receiveMessage = function (message) {
                        messages <<- c(message,messages)
                  },
                  lastMessage = function() {
                    if(length(messages)==0L) return(NULL)
                    messages[[1]]
                  },
                  reset = function(app) {
                    messages <<- list()
                  }),
                  contains="RefListener")

CaptureListener <- function (name="Capture",messages=list(),messSet=character(),...) {
  new("CaptureListener",name=name,messages=messages,messSet=messSet)
}

setMethod("listenerDataTable","CaptureListener",
          function(listener, appid=character())
            as.data.frame(sapply(messages,attributes))
)