用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，然后添加通过将最后一个文件夹名称和旧文件名与 "-".

连接生成的新文件名

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

renaming files inside Sub directory with R

r

file

path

file-rename