R/redisSINTERSTORE.R

In wush978/Rhiredis: R wrapper of hiredis

#'@title Intersect multiple sets and store the resulting set in a key
#'@export
redisSInterStore <- function( destination,  key, Rc = NULL) {
	if (is.null(Rc)) Rc <- getOption("Rhiredis.connect")
	cmd <- "SINTERSTORE"
	redisCommand(Rc, cmd, list(destination, key))
}