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))
# Write binary data
saveRDS(data, "data.rds")
# Read binary data
data2 <- readRDS("data.rds")
str(data2)