new_data <- function(text, num, lst) {
structure(list(text = text, num = num,
lst = lst),
class = "Data")
}
data <- new_data("Hello", 3.14, c(2, 5, 7))
# Object -> raw bytes
data_b <- serialize(data, NULL)
# Raw bytes -> object
data2 <- unserialize(data_b)
str(data2)