根据R中目录中的子文件夹名称为文件名添加后缀

Question

我在目录文件夹中存储了许多（子）文件夹。 每个子文件夹包含5-35 .jpg航空照片文件，这些文件由飞行路线的名称和编号（即：bej-3-83）命名。 我想根据它们存储在的子文件夹为每个文件添加一个后缀。 例如，如果“ bej-3-83”存储在“ T13N_10W”子文件夹中，我希望我的R脚本将“ bej-3-83”重命名为“ bej-3-83-T13N_10W”，依此类推，存储在其中的每个文件每个子文件夹。

我仍然可以部分完成此过程，尽管仍然需要比使用此脚本更多的手动输入：

folder = "C:\\...\\T23N_R14W"
files <- list.files(folder,pattern = "\\.jpg$",full.names = T) 
files
   sapply(files,FUN=function(eachPath){ 
   file.rename(from=eachPath,to= sub(pattern="_clip", paste0("_T23N_R14W"),eachPath))
 })

但是正如您所看到的，该脚本使用了子文件夹名称的手动粘贴输入，当您试图创建一个可以一口气完成我所需要的脚本时，这是没有用的。

我看到类似的问题和答案都利用了“ pushd”和“ popd”，并且我将这些线程附加为链接。 我正在尝试尽可能多地阅读这些功能，但是到目前为止，使它起作用的过程还很困难。

如何使用批处理文件将文件夹中的文件重命名为foldername

根据文件夹名称重命名文件

真诚的

亨利

Answer 1

您可能必须在Windows dir_separator更改为\\ ：

make_filename <- function(file_path) {
    s <- unlist(strsplit(file_path, dir_separator))
    fname <- gsub('\\.jpg$', '', s[length(s)])
    parent_dir <- s[(length(s) - 1)]
    new_fname <- paste0(parent_dir, "_", fname, '.jpg')
    path <- paste(s[-length(s)], collapse = dir_separator)
    return(paste(path, new_fname, sep = dir_separator))
}

folder = './data'
dir_separator = '/'
files <- paste0(folder, dir_separator, list.files(folder, recursive = T))
sapply(files, function(x) file.rename(from = x, to = make_filename(x)))

Answer 2

递归方法。

将路径传递到包含您的文件和要重命名的文件扩展名的根文件夹，以rename_batch 。 默认值为工作目录和jpeg。

library(stringr)

# An auxiliary function
rename_file <- function(str, extra){
  file_name <- tools::file_path_sans_ext(str)
  file_ext <- tools::file_ext(str)
  return(paste0(file_name, '-', extra, '.', file_ext))
}

rename_batch <- function(path = "./",
                         extension = 'jpeg'){

  # Separate files from folders
  l <- list.files(path)
  files <- l[grepl(paste0("\\." , extension), l)]
  folders <- list.dirs(path, F, F)

  present_folder <- 
    stringr::str_extract(path, '(?<=/)([^/]+)$')

  # Check if there is a / at the end of path and removes it
  # for consistency
  path_len <- nchar(path)
  last <- substr(path, path_len, path_len)
  if (last == '/') {
    path <- substr(path, 1, path_len - 1)
  }

  if (length(files) > 0) {
    file_updtate <- paste0(path, '/', files)
    file.rename(file_updtate, rename_file(file_updtate, present_folder))
  }

  if (length(folders) > 0) {
  for (i in paste0(path, '/',  folders)) {
   cat('Renaming in:', i, '\n')
   rename_batch(i)
  }

  }    
}