/R/allValCMD.R

http://github.com/bwlewis/rredis · R · 104 lines · 84 code · 19 blank · 1 comment · 3 complexity · dd7565ebc3a8746226451bf301cd8b49 MD5 · raw file

  1. # This file contains functions that operate on all kinds of Redis values.
  2. redisMulti <- function()
  3. {
  4. .redisCmd(.raw('MULTI'))
  5. }
  6. redisExec <- function()
  7. {
  8. .redisCmd(.raw('EXEC'))
  9. }
  10. redisDiscard <- function()
  11. {
  12. .redisCmd(.raw('DISCARD'))
  13. }
  14. redisWatch <- function(keys)
  15. {
  16. cmd <- 'WATCH'
  17. keys <- as.list(keys)
  18. keys <- lapply(keys, charToRaw)
  19. do.call('.redisCmd', c(list(.raw(cmd)),keys))
  20. }
  21. redisUnwatch <- function()
  22. {
  23. cmd <- 'UNWATCH'
  24. do.call('.redisCmd', list(.raw(cmd)))
  25. }
  26. redisExists <- function(key)
  27. {
  28. .redisCmd(.raw('EXISTS'), .raw(key)) == '1'
  29. }
  30. redisDelete <- function(key)
  31. {
  32. keylist <- as.list(key)
  33. nkeys <- length(keylist)
  34. as.numeric(do.call('.redisCmd',lapply(c(list('DEL'),keylist),charToRaw)))
  35. }
  36. redisType <- function(key)
  37. {
  38. .redisCmd(.raw('TYPE'), .raw(key))
  39. }
  40. redisKeys <- function(pattern="*")
  41. {
  42. res <- .redisCmd(.raw('KEYS'), .raw(pattern))
  43. unlist(res)
  44. }
  45. redisRandomKey <- function()
  46. {
  47. .redisCmd(.raw('RANDOMKEY'))
  48. }
  49. redisRename <- function(old, new, NX=FALSE)
  50. {
  51. if (NX) cmd <- 'RENAMENX' else cmd <- 'RENAME'
  52. .redisCmd(.raw(cmd),.raw(old),.raw(new))
  53. }
  54. redisPexpire <- function(key, milliseconds)
  55. {
  56. .redisCmd(.raw('PEXPIRE'),.raw(key),.raw(as.character(milliseconds)))
  57. }
  58. redisPexpireAt <- function(key, time)
  59. {
  60. .redisCmd(.raw('PEXPIREAT'),.raw(key),.raw(as.character(time)))
  61. }
  62. redisPTTL <- function(key)
  63. {
  64. .redisCmd(.raw('PTTL'),.raw(key))
  65. }
  66. redisPersist <- function(key)
  67. {
  68. .redisCmd(.raw('PERSIST'),.raw(key))
  69. }
  70. redisExpire <- function(key, seconds)
  71. {
  72. .redisCmd(.raw('EXPIRE'),.raw(key),.raw(as.character(seconds)))
  73. }
  74. redisExpireAt <- function(key, time)
  75. {
  76. .redisCmd(.raw('EXPIREAT'),.raw(key),.raw(as.character(time)))
  77. }
  78. redisTTL <- function(key)
  79. {
  80. .redisCmd(.raw('TTL'),.raw(key))
  81. }
  82. redisMove <- function(key, dbindex)
  83. {
  84. .redisCmd(.raw('MOVE'),.raw(key),.raw(as.character(dbindex)))
  85. }