cfg <- serial_config("test_cls", function(x) serialize(x, NULL), 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