R/redisRPOP.R

In wush978/Rhiredis: R wrapper of hiredis

#'@title Remove and get the last element in a list
#'@export
redisRPop <- function( key, Rc = NULL) {
	if (is.null(Rc)) Rc <- getOption("Rhiredis.connect")
	cmd <- "RPOP"
	redisCommand(Rc, cmd, list(key))
}