Создание папок назначения в каталоге с подпапками / R

Question

Я пытаюсь создать папки назначения для данных камеры из 100 различных автозапускаемых удаленных камер. Камеры будут проверены 4 раза, поэтому я хочу четыре подпапки в каждой папке камеры. Я создал цикл для генерации папок камеры, который был успешным, но я затрудняюсь, используя функцию dir.create для создания подпапок в отдельном цикле, тем более что путь к файлу должен изменяться в цикле. Я попытался создать список каждого нового пути к файлу (Cam_Folders) и использовать его во втором цикле. Пожалуйста помоги.

    ## Create Folders
    for (j in 1: length(Cam_Done_Names)){
      folder <-dir.create(paste0("/Users/dheit/Documents/RECaP/Cam_File_Test/",
         Cam_Done_Names[j]))

    ## Extract File Paths
    Cam_Folders <- list.files(path = 
      "/Users/dheit/Documents/RECaP/Cam_File_Test/",
      full.names = T)

    ## Create Subfolders
    for (i in 1: length(Check_Num)){
      folder<-dir.create(paste0(Cam_Folders,Check_Num[i]))
    }

ОБНОВЛЕНИЕ: я смог решить проблему с циклом внутри цикла

    for (i in 1:100){
      setwd(file.path("/Users/dheit/Hair_File_Test",
      Cam_Done_Names[i],sep = "/"))
      for (j in 1:4)
        dir.create(paste0(getwd(),"/",Check_Num[j]))

Answer 1

dir.create() имеет аргумент recursive = TRUE, который позволяет вам создавать каталоги и любые необходимые подкаталоги в одном вызове.

for(i_camera in 1:100) {
  for(j_sub in 1:4) {
    dir.create(path = paste0("/Users/dheit/Documents/RECaP/Cam_File_Test/camera", i_camera, "/sub_dir", j_sub), recursive = TRUE)
  }
}