benchmarking `svSocket` versus base `load` versus `redis`

benchmark.R

library(microbenchmark)
library(redux)
library(svSocket)

# clear workspace
rm(list = ls())

# set up svSocket
startSocketServer()
con <- socketConnection(host = "localhost", port = 8888, blocking = FALSE)

# set up redis connection
r <- hiredis()

# generate data to cache
set.seed(123)
x <- rnorm(1e5)

# cache data
save(x, file = "x.rda")
evalServer(con, x, x)
r$SET("x", object_to_bin(x))

rm(x)

m <-
  microbenchmark(
  load = load("x.rda"),
  svsocket = evalServer(con, x),
  redis = bin_to_object(r$GET("x")),
  times = 10
)

m

load("x.rda")
y <- evalServer(con, x)
z <- bin_to_object(r$GET("x"))

all.equal(mean(x),mean(y),mean(z))

nb redux::hiredis() needs to connect to a running redis server