Nothing
# This file contains functions that operate on Redis 'string' values.
redisGet <- function(key, ...)
{
.redisCmd(.raw('GET'), .raw(key), ...)
}
redisSet <- function(key, value, NX=FALSE)
{
value <- .cerealize(value)
cmd <- 'SET'
if(NX) cmd <- 'SETNX'
.redisCmd(.raw(cmd), .raw(key), value)
}
redisGetSet <- function(key, value, ...)
{
.redisCmd(.raw('GETSET'),.raw(key),value, ...)
}
redisMGet <- function(keys, ...)
{
keylist <- as.list(keys)
x <- do.call('.redisCmd',c(lapply(c(list('MGET'),keylist),charToRaw),...))
# The following may not occur, for example within a transaction block:
if(length(x) == length(keylist)) names(x) <- keylist
x
}
redisMSet <- function(keyvalues, NX=FALSE, ...)
{
# Includes a significant performance improvement contributed
# by William Pleasant.
if (0L == length(keyvalues))
return(NULL)
if (NX) cmd <- 'MSETNX' else cmd <- 'MSET'
a <- list(.raw(cmd))
j <- 2L * seq_along(keyvalues)
a[j + 1L] <- keyvalues # extends a
a[j] <- lapply(names(keyvalues), charToRaw)
a <- c(a, ...)
do.call('.redisCmd', a)
}
redisIncr <- function(key)
{
.redisCmd(.raw('INCR'),.raw(key))
}
redisIncrBy <- function(key, value)
{
.redisCmd(.raw('INCRBY'),.raw(key),.raw(as.character(value)))
}
redisIncrByFloat <- function(key, value)
{
.redisCmd(.raw('INCRBYFLOAT'),.raw(key),.raw(as.character(value)))
}
redisDecrBy <- function(key, value)
{
.redisCmd(.raw('DECRBY'),.raw(key),.raw(as.character(value)))
}
redisDecr <- function(key)
{
.redisCmd(.raw('DECR'),.raw(key))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.