R/redisDISCARD.R

In wush978/Rhiredis: R wrapper of hiredis

#'@title Discard all commands issued after MULTI
#'@export
redisDiscard <- function(Rc = NULL) {
	if (is.null(Rc)) Rc <- getOption("Rhiredis.connect")
	cmd <- "DISCARD"
	redisCommand(Rc, cmd)
}