R/hashCMD.R

In rredis: "Redis" Key/Value Database Client

# This file contains functions that operate on Redis 'hash' values.

redisHGet <- function(key, field, ...)
{
  .redisCmd(.raw('HGET'), .raw(key), .raw(field),...)
}

redisHSet <- function(key, field, value, NX=FALSE)
{
  value <- .cerealize(value)
  cmd <- 'HSET'
  if(NX) cmd <- 'HSETNX'
  .redisCmd(.raw(cmd), .raw(key), .raw(field), value)
}

redisHIncrBy <- function(key, field, value, ...)
{
  .redisCmd(.raw('HINCRBY'),.raw(key),.raw(field),.raw(as.character(value)),...)
}

redisHIncrByFloat <- function(key, field, value, ...)
{
  .redisCmd(.raw('HINCRBY'),.raw(key),.raw(field),.raw(as.character(value)),...)
}

redisHExists <- function(key, field)
{
  .redisCmd(.raw('HEXISTS'), .raw(key), .raw(field)) == 1
}

redisHDel <- function(key, field)
{
  .redisCmd(.raw('HDEL'), .raw(key), .raw(field))
}

redisHLen <- function(key)
{
  .redisCmd(.raw('HLEN'), .raw(key))
}

redisHFields <- function(key,...)
{
  .redisCmd(.raw('HKEYS'), .raw(key),...)
}

redisHKeys <- function(key,...)
{
  redisHFields(key,...)
}

redisHVals <- function(key,...)
{
  .redisCmd(.raw('HVALS'), .raw(key),...)
}

redisHGetAll <- function(key,...)
{
  retval <- NULL
  all <- .redisCmd(.raw('HGETALL'), .raw(key),...)
  if(!is.null(all) && length(all)>1) {
    retval <- all[seq(2,length(all),by=2)]
    names(retval) <- all[seq(1,length(all),by=2)]
  }
  retval
}

redisHMGet <- function(key, fields, ...) {
  a <- c(alist(),list(.raw('HMGET')),...)
  a <- c(a, lapply(c(key,fields), charToRaw))
  retval <- do.call('.redisCmd', a)
  if(length(retval) == length(fields)) names(retval) <- fields
  retval
}

redisHMSet <- function(key, values) {
  a <- c(alist(),list(.raw('HMSET')),list(.raw(key)))
  fieldnames <- lapply(names(values), charToRaw)
  for(j in 1:length(values)) {
    a <- c(a, fieldnames[j])
    if(is.character(values[[j]])) a <- c(a, list(charToRaw(values[[j]])))
    else(a <- c(a,list(.cerealize(values[[j]]))))
  }
  do.call('.redisCmd', a)
}