temp_dir <- tempfile()
dir.create(temp_dir, recursive = TRUE)
df <- data.frame(a = 1:5, b = letters[1:5])
new_df <- data.frame(a = 2:5, b = letters[2:5])
diff <- diffdfs::diffdfs(new_df, df)
commit_diff(diff, temp_dir)
put_diff_stats(temp_dir)
get_diff_stats(temp_dir)
unlink(temp_dir)
Run the code above in your browser using DataLab