R/redisEVAL.R

In wush978/Rhiredis: R wrapper of hiredis

#'@title Execute a Lua script server side
#'@export
redisEval <- function( script,  numkeys,  key, Rc = NULL) {
	if (is.null(Rc)) Rc <- getOption("Rhiredis.connect")
	cmd <- "EVAL"
	redisCommand(Rc, cmd, list(script, numkeys, key))
}