Generate a list of sha1 hashes given file paths

hash_files.R

# requires openssl package

hash_files <- function(paths){
  num_paths <- length(paths)
  pb <- txtProgressBar(max=num_paths)
  lapply(seq_along(paths), function(x){
    setTxtProgressBar(pb, x)
    flush.console()
    openssl::sha1(file(paths[[x]]))
  })
}