# Serialize
save_json(list(a = 1, b = function(){}))
# use toJSON
save_json(list(a = 1, b = function(){}), serialize = FALSE)
# Demo of using serializer
f1 <- tempfile(fileext = ".json")
save_json(x ~ y + 1, f1)
load_json(f1)
unlink(f1)
Run the code above in your browser using DataLab