Копирование нескольких файлов из нескольких папок в одну папку с помощью R

Question

Эй, я хочу спросить, как скопировать несколько файлов из нескольких папок к одному папкам с использованием языка R

Предполагая, что есть три папки:

1. настольные/folder_A/задача/sub_task/
2. настольные/folder_B/задача/sub_task/
3. настольные/folder_C/задача/sub_task/

В каждой папке sub_task имеется несколько файлов. Я хочу скопировать все файлы в папки sub_task и вставить их в новую папку (назовем эту новую папку как «all_sub_task») на рабочем столе. Может ли кто-нибудь показать мне, как это сделать в R, используя цикл или применить функцию? Заранее спасибо.

Answer 1

Это решение R.

# Manually enter the directories for the sub tasks 
my_dirs <- c("desktop/folder_A/task/sub_task/", 
      "desktop/folder_B/task/sub_task/", 
      "desktop/folder_C/task/sub_task/") 

# Alternatively, if you want to programmatically find each of the sub_task dirs 
my_dirs <- list.files("desktop", pattern = "sub_task", recursive = TRUE, include.dirs = TRUE) 

# Grab all files from the directories using list.files in sapply 
files <- sapply(my_dirs, list.files, full.names = TRUE) 

# Your output directory to copy files to 
new_dir <- "all_sub_task" 
# Make sure the directory exists 
dir.create(new_dir, recursive = TRUE) 

# Copy the files 
for(file in files) { 
    # See ?file.copy for more options 
    file.copy(file, new_dir) 
} 

Отредактировано программным путем: список sub_task.

Answer 2

Этот код должен работать. Эта функция принимает один каталог - например, desktop/folder_A/task/sub_task/ - и копирует все туда ко второму. Конечно, вы можете использовать цикл или применить, чтобы использовать более чем один каталог сразу, как второе значение фиксировано sapply(froms, copyEverything, to)

copyEverything <- function(from, to){ 
    # We search all the files and directories 
    files <- list.files(from, r = T) 
    dirs <- list.dirs(from, r = T, f = F)  


    # We create the required directories 
    dir.create(to) 
    sapply(paste(to, dirs, sep = '/'), dir.create) 

    # And then we copy the files 
    file.copy(paste(from, files, sep = '/'), paste(to, files, sep = '/')) 
}