使用R中的相同模式重命名文件和目录

Question

我正在尝试使用新名称重命名许多文件和文件夹。

示例旧名称：corrected_original_wh_ah108090.pdf

示例新名称：corrected_original_gsmp01358_108090.pdf

示例旧路径：Data/Test2/ARGOS/wh_ah108090/crawl/corrected_original_wh_ah108090.pdf

示例新路径：Data/Test2/ARGOS/gsmp01358_108090/crawl/corrected_original_gsmp01358_108090.pdf

示例元数据：

old         new
wh_ah108090 gsmp01358_108090
wh_ah108091 gsmp01359_108091
wh_ah108092 gsmp01360_108092
wh_ah108093 gsmp01361_108093
wh_ah108096 gsmp01362_108096
wh_ah108102 gsmp01363_108102
wh_ah108106 gsmp01364_108106

代码：

# Read metadata for ID's #
meta <- read.csv('Metadata.csv')


# list all file paths
pathLs <- list.files('Data/Test2/', recursive = TRUE, full.names = TRUE)


# select only files with old format on the list (for full dataset where some files already have new name)
tbl<- pathLs [!grepl("gsmp", pathLs )]

# select only files with old format on metadata
metadata<- meta[!meta$old =="",]

# function to change old names for new
fileList <- apply(metadata,1, 
                 function(x) {
                 fnam <- x['old']
                 fnam <- as.character(unlist(fnam))


                 newnam <- gsub(fnam, as.character(unlist(x['new'])), tbl[grepl(fnam, tbl)])
                 return(newnam)})

# Create dataframe with old and new names

to <- as.character(unlist(fileList))
from <- tbl 

# Use rename 
file.rename(from, to)

出于某种原因，此文件重命名无法正常工作。这是因为我无法同时重命名路径中的文件和目录吗？

Answer 1

不需要循环。

metadata <- read.table(header=T, stringsAsFactors=F, text="
old         new
wh_ah108090 gsmp01358_108090
wh_ah108091 gsmp01359_108091
wh_ah108092 gsmp01360_108092
wh_ah108093 gsmp01361_108093
wh_ah108096 gsmp01362_108096
wh_ah108102 gsmp01363_108102
wh_ah108106 gsmp01364_108106")
metadata$new2 <- sprintf("gsmp%05d_%s",
                         1357L + seq_len(nrow(metadata)), # 1357 can be anything?
                         gsub("\\D", "", metadata$old))
metadata
#           old              new             new2
# 1 wh_ah108090 gsmp01358_108090 gsmp01358_108090
# 2 wh_ah108091 gsmp01359_108091 gsmp01359_108091
# 3 wh_ah108092 gsmp01360_108092 gsmp01360_108092
# 4 wh_ah108093 gsmp01361_108093 gsmp01361_108093
# 5 wh_ah108096 gsmp01362_108096 gsmp01362_108096
# 6 wh_ah108102 gsmp01363_108102 gsmp01363_108102
# 7 wh_ah108106 gsmp01364_108106 gsmp01364_108106

file.rename(metadata$old, metadata$new2) # should do it

Answer 2

list.files不列出任何目录名称，因此您的代码仅重命名文件，而不重命名目录。因此，理论上您的代码应该可以工作。具体来说，代码的哪一部分不起作用？