Make a list of MD5 checksums for files in a folder

checksums.R

library(tidyverse)

# Specify directory with files to get checksums
dir <- "my_folder"

# Get checksums
list.files(dir, full.names = TRUE) %>%
  tools::md5sum() %>%
  tibble(file = names(.), checksum = .) %>%
  filter(!is.na(checksum)) %>%
  mutate(
    file = fs::path_file(file),
    text = glue::glue("{file}: {checksum}")) %>%
  arrange(file) %>%
  pull(text) %>%
  cat(sep = "\n")