使用 R 没有明确模式的文件重命名（字符串替换）

Question

目前，我正在处理一长串文件。 它们的名称模式为 SB_xxx_（零件）。 （不同的扩展名），其中 xxx 指的是商品代码。

SB_19842.png
SB_19842_head.png
SB_19842_hand.png
SB_19842_head.pdf
...

发现其中很多代码都有错误的输入。 我手头有两列：一列是旧代码，一列是新代码（假设 A 和 B）。我希望将文件名中的所有旧代码更改为新代码。

  old    new
12154  24124
92482  02425
    .....

我的第一个想法是使用 file.rename() 然而，这是一种一对一的改变方法。我无法执行此操作，因为每个项目都有不同数量的部件和不同的文件扩展名。

是否有任何递归方法可以简单地将 A 中带有字符串的所有不正确的文件名更改为 B 中的字符串？有人有想法吗？

Answer 1

末尾带有 purrr::map2 的循环解决方案：

library(purrr)
#create files to rename
file.create("SB_19842.png")
file.create("SB_19842_head.png")
file.create("SB_19842_hand.png")
file.create("SB_19842_head.pdf")
file.create("SB_12154.png")
file.create("SB_12154_head.png")
file.create("SB_12154_hand.png")
file.create("SB_12154_head.pdf")
# a dataframe with old a nd new patterns
file_names <- data.frame(
  old = c("19842", "12154"),
  new = c("new1", "new2")
)
# old filenames from the directory, specify path if needed
file_names_SB <- list.files(pattern = "SB_")
# function to substitute one type of code with another
sub_one_code <- function(old_code, new_code, file_names_original){
  gsub(paste0("SB_", old_code), paste0("SB_", new_code), file_names_original)
}
# loop to substitute all codes
new_file_names <- file_names_SB
for (row in 1:nrow(file_names)){
  new_file_names <- sub_one_code(file_names[row, "old"], file_names[row, "new"], new_file_names)
}
# rename all the files
map2(file_names_SB,
     new_file_names,
     file.rename)

@thelatemail 提供了一个链接，其中包含用于生成新文件名的更优雅的解决方案。