Compare hashes of identically named files across two project versions

compare_project_files.R

# Compare hashes of identically named files across two project versions,
# e.g. if the project was run again with different versions of dependencies.
# >>> Assumes files are uniquely named within a project <<<
# (replace vector of paths appropriately)

library(digest)
library(tidyverse)

files_to_check_01 <- list.files(
  # Check all of the files in these directories
  c("/project_v1/dir1",
    "/project_v1/dir2"), 
  full.names = TRUE, recursive = TRUE) %>%
  set_names(fs::path_file(.)) %>%
  map(read_lines)

hashes_01 <- map_chr(files_to_check_01, digest::digest) %>%
  tibble(hash_01 = ., file = names(.))

files_to_check_02 <- list.files(
  c("/project_v2/dir1",
    "/project_v2/dir2"), 
  full.names = TRUE, recursive = TRUE) %>%
  set_names(fs::path_file(.)) %>%
  map(read_lines)

hashes_02 <- map_chr(files_to_check_02, digest::digest) %>%
  tibble(hash_02 = ., file = names(.))

left_join(hashes_01, hashes_02) %>%
  select(file, hash_01, hash_02) %>%
  filter(hash_01 != hash_02)