Скопируйте список файлов PDF в R и динамически переименуйте при вставке

Question

Хотите скопировать файлы FS.pdf из одной папки в другую папку в R, но при вставке файлов PDF я хочу переименовать файлы в FS_1.pdf, FS_2.pdf, как следует?

parent.folder<-"C:/Users/Sam/Big Doc Classification/RAW DATA"
sub.folders1 <- list.dirs(parent.folder, recursive=TRUE)[-1]
new_folder <- "C:/Users/Sam/Big Doc Classification/TAX"
list_of_files <- list.files(sub.folders1, "FS.pdf$")
list_of_files


list_of_files
[1] "FS.pdf" "FS.pdf" "FS.pdf" "FS.pdf" "FS.pdf"

file.copy(file.path(parent.folder,list_of_files), new_folder)

Answer 1

В зависимости от того, сколько у вас подпапок, вам может быть проще скопировать все имеющиеся у вас файлы PDF в один каталог, а затем переименовать их с помощью цикла:

# Directory containing all files
  parent.folder<-"C:/Users/Sam/Big Doc Classification/RAW DATA"

# Return a list of the existing PDF names in parent.folder:
  list_of_files <- list.files(parent.folder, 
                       pattern = "*.pdf", full.names = TRUE)
# Rename all files
  for(i in 1:length(list_of_files)){
            file.rename(list_of_files[i], paste0("FS", i, ".pdf"))
  }