Удалить пустые папки внутри рабочего каталога

Question

У меня есть количество пустых папок в рабочем каталоге. Хотите удалить эти пустые папки в R. Может ли кто-нибудь помочь мне в этом.

Answer 1

Предполагая, что текущим каталогом является тот, в котором вы хотите удалить пустые папки, вы можете сделать:

folders <- list.dirs(recursive = FALSE)
for(folder in folders){
  if(length(dir(folder)) == 0){
    unlink(folder, recursive = TRUE)
  }
}

Answer 2

Мы можем удалить папки, используя:

unlink("path_to_non_empty_dir", recursive=TRUE)

Редактировать: удалена часть о непустых папках

Из ?unlink:

Если рекурсивно = Ложные каталоги не удаляются, даже пустые.