R/redisBRPOPLPUSH.R

In wush978/Rhiredis: R wrapper of hiredis

#'@title Pop a value from a list, push it to another list and return it; or block until one is available
#'@export
redisBRPopLPush <- function( source,  destination,  timeout, Rc = NULL) {
	if (is.null(Rc)) Rc <- getOption("Rhiredis.connect")
	cmd <- "BRPOPLPUSH"
	redisCommand(Rc, cmd, list(source, destination, timeout))
}