# create a te_datastore_csv object and save some data
temp_dir <- tempfile("csv_dir_")
dir.create(temp_dir)
datastore <- save_to_csv(temp_dir)
data(vignette_switch_data)
expanded_csv_data <- save_expanded_data(datastore, vignette_switch_data[1:200, ])
# read expanded data
read_expanded_data(expanded_csv_data)
# delete after use
unlink(temp_dir, recursive = TRUE)
Run the code above in your browser using DataLab