Подгруппирование изображений в отдельные папки в R

Question

У меня есть папка с несколькими тысячами файлов внутри.Я хочу разбить все эти файлы на отдельные подпапки, каждая из которых содержит 15 файлов (не имеет значения, куда и куда идут файлы или имена подпапок).По сути, мне нужно обработать эти файлы в программе, и я хотел бы разбить их на папки с меньшим, более управляемым количеством файлов внутри.

Answer 1

Для этого требуется несколько функций.

list.files, чтобы получить все имена файлов

dir.create для создания каталогов и

file.renameчтобы переместить файлы

AllFiles = list.files("TheFolder")

## Make all of the folders
FolderNumber = floor(1:length(AllFiles)/15) + 1
FolderName = sprintf("Folder%03d", FolderNumber)
for(f in unique(FolderName)) { dir.create(f) }

## Move the files
for(i in 1:length(AllFiles)) {
    file.rename(paste("TheFolder", AllFiles[i], sep="/"),
        paste(FolderName[i], AllFiles[i], sep="/"))
}

Если вы хотите быть осторожными, вы можете использовать file.copy вместо file.rename.Это сделает копию в папки без удаления оригинала, так что вы можете проверить, что все в порядке перед удалением.