使用 R 重命名子目录中的文件

Question

例如，我想重命名子目录中的所有jpeg文件以及带有jpeg文件的子目录名称

WorkingDirectory/FolderA/ -> a.jpg
WorkingDirectory/FolderB/ -> a.jpg

想要更改为

WorkingDirectory/FolderA/ -> FolderA-a.jpg
WorkingDirectory/FolderB/ -> FolderB-a.jpg

到目前为止，我正在使用

old.names <- list.files(path = ".", pattern = "jpeg$", recursive = TRUE)
new.names <- old.names
new.names  = gsub("/", "-", new.names)
new.names  = gsub(".jpeg", "", new.names)
final <- data.frame(do.call(cbind,mget(c('old.names','new.names'))))
final$old.names  = gsub("", "", final$old.names)
final$new.names  = gsub("", "", final$new.names)
file.rename(final$old.names, paste0(final$new.names, ".jpeg"))

我可以重命名文件，但我在上面的代码中面临的问题是它将所有文件移动到工作目录中，因为它们应该保留在子目录中。

Answer 1

有了上面的例子，这似乎就足够了：

old.names <- list.files(path = ".", pattern = "jpeg$", recursive = TRUE)
new.names <- old.names
new.names <- gsub("/", "-", new.names)
new.names <- file.path(dirname(old.names), new.names)
file.rename(old.names, new.names)

Answer 2

您正在从示例代码中的new.names中删除文件夹名称。

这应该有效：

old.names <- list.files(path = ".", pattern = "jp[e]*g$", recursive = TRUE)
old.names;
#[1] "tmp/FolderA/a.jpg" "tmp/FolderB/b.jpg"
new.names <- sapply(strsplit(old.names, "/"), function(x)
    sprintf("%s/%s",
        paste0(x[1:(length(x) - 1)], collapse = "/"),
        paste0(x[(length(x) - 1):length(x)], collapse = "-")));
new.names;
#[1] "tmp/FolderA/FolderA-a.jpg" "tmp/FolderB/FolderB-b.jpg"
file.rename(old.names, new.names);

说明：在"/"上拆分old.names，然后通过将前n-1条目与"/"(即文件夹(连接起来来构造new.names，然后添加通过将最后一个文件夹名称和旧文件名与"-"连接生成的新文件名。