Add utility function to clean files names in given directory

[brancengregory]

library(tidyverse)

clean_file_names <- function(dir) { if(!dir.exists(dir)) { stop("Directory does not exist") }

files <- list.files(dir, full.names = T)

new_files <- files |> str_to_lower() |> str_replaceall(" ", "")

lookups <- tibble( files, new_files ) |> rename( from = files, to = new_files )

lookups |> pwalk(file.rename) }

[brancengregory]

This should be implemented in ojoutils