R/redisDECRBY.R

In wush978/Rhiredis: R wrapper of hiredis

#'@title Decrement the integer value of a key by the given number
#'@export
redisDecrBy <- function( key,  decrement, Rc = NULL) {
	if (is.null(Rc)) Rc <- getOption("Rhiredis.connect")
	cmd <- "DECRBY"
	redisCommand(Rc, cmd, list(key, decrement))
}