R + Redis on Heroku

init.r

# used by the R buildpack to install dependencies:
# https://github.com/virtualstaticvoid/heroku-buildpack-r
install.packages("rredis", dependencies = TRUE)

sample.r

library("rredis")

redis_url <- Sys.getenv("REDIS_URL")
host <- gsub("redis://.*@(.+):.*", "\\1", redis_url)
pass <- gsub("redis://.*:(.+)@.*", "\\1", redis_url)
port <- as.integer(gsub(".*:(.*)$", "\\1", redis_url))
redisConnect(host=host, port=port, password=pass)

# set/get stuff:
redisSet("foo", "bar")
print(redisGet("foo"))