Rename multiple files at once using regex. #bash

rename_files

#!/usr/bin/env Rscript --vanilla

args <- commandArgs(trailingOnly = TRUE)

# List all files
items <- list.files(path = ".")

# See which matches argument (regex)
old <- items[grep(items, pattern = args[1])]

# What to replace to?
new <- gsub(pattern = args[1], replacement = args[2], x = old)

# Replace those matches
file.rename(old, new)