cfg <- serial_config("test_cls", function(x) serialize(x, NULL), unserialize)
cfg
cfg <- serial_config(
c("class_one", "class_two"),
list(function(x) serialize(x, NULL), function(x) serialize(x, NULL)),
list(unserialize, unserialize)
)
cfg
s <- socket()
opt(s, "serial") <- cfg
# provide an empty list to remove registered functions
opt(s, "serial") <- list()
close(s)
Run the code above in your browser using DataLab