R/redisPUBLISH.R

In wush978/Rhiredis: R wrapper of hiredis

#'@title Post a message to a channel
#'@export
redisPublish <- function( channel,  message, Rc = NULL) {
	if (is.null(Rc)) Rc <- getOption("Rhiredis.connect")
	cmd <- "PUBLISH"
	redisCommand(Rc, cmd, list(channel, message))
}