notifyListeners {Proc4} | R Documentation |
This is a generic function for objects that send
P4Message
objects. When this function is called, the
message is sent to the listeners; that is, the
receiveMessage
function is called on the listener
objects. Often, this protocol is implemented by having the
sender
include a ListenerSet
object.
notifyListeners(sender, mess)
sender |
An object which sends messages. |
mess |
A |
Function is invoked for its side effect, so return value may be anything.
Russell Almond
P4Message
, Listener
,
ListenerSet
## Not run: ## Requires Mongo database set up. MyListener <- setClass("MyListener",slots=c("name"="character")) setMethod("receiveMessage","MyListener", function(x,mess) cat("I (",x@name,") just got the message ",mess(mess),"\n")) lset <- ListenerSet$new(sender="Other",dburi="mongodb://localhost", colname="messages") lset$addListener("me",MyListener()) mess1 <- P4Message("Fred","Task 1","Evidence ID","Scored Response", as.POSIXct("2018-11-04 21:15:25 EST"), list(correct=TRUE,seletion="D")) mess2 <- P4Message("Fred","Task 2","Evidence ID","Scored Response", as.POSIXct("2018-11-04 21:17:25 EST"), list(correct=FALSE,seletion="D")) lset$notifyListeners(mess1) lset$removeListener("me") notifyListeners(lset,mess2) ## End(Not run)