temp_dir <- tempfile()
dir.create(temp_dir, recursive = TRUE)
df <- data.frame(a = 1:5, b = letters[1:5])
create_dv(df, temp_dir, diffed = TRUE)
read_dv_diff(temp_dir,
as_of = lubridate::now(),
key_cols = get_metadata(temp_dir)$key_cols)
unlink(temp_dir)
Run the code above in your browser using DataLab