ds <- temp_ds("example")
fs <- new_stream(2, locker = ds, format = "fst")
data <- data.frame(x = rnorm(10))
x <- lapply(fs, write_stream, data = data)
list.files(ds)
reset_locker(ds)
fs <- format_stream(fs, "rds")
x <- lapply(fs, write_stream, data = data)
list.files(ds)
Run the code above in your browser using DataLab