# NOT RUN {
# Sample dataset
x <- data.frame(
First = 1:10,
Second = sample(c(TRUE, FALSE, NA), 10, replace = TRUE),
Last = sample(LETTERS, 10))
# Write to fst file
fst_file <- tempfile(fileext = ".fst")
write_fst(x, fst_file)
# Display meta information
metadata_fst(fst_file)
# }
Run the code above in your browser using DataLab