Как я могу установить рабочий каталог в подпапку?

Question

Я использую R, чтобы попытаться прочитать все файлы .xlsx в подпапках в основной папке. Код кажется интуитивно понятным, но я сталкиваюсь с препятствиями с рабочим каталогом.

Мой соответствующий код:

setwd("~/Downloads/Job Postings")

for (dir in list.dirs()[-1]) {
  setwd(dir)

  files <- list.files(pattern="*.xlsx")

  require(purrr)
  main_dF <- files %>% map_dfr(read.xlsx)
}

Код кажется интуитивно понятным, но я получаю ошибку Error in setwd(dir) : cannot change working directory. Как я могу настроить команду setwd()? Спасибо

Answer 1

Я думаю, у вас есть две проблемы.

1. Вы меняете каталог на подкаталог в l oop, но никогда не возвращаете
2. Вы присваиваете результат main_df, но он никогда не будет накапливаться подкаталоги

Вы можете попробовать что-нибудь перечислить.

setwd("~/Downloads/Job Postings")
results <- list()
for (dir in list.dirs()[-1]) {
  setwd(dir)

  files <- list.files(pattern="*.xlsx")
  require(purrr)
  main_dF <- files %>% map_dfr(read.xlsx)
  results[[dir]] <- main_df
  setwd("~/Downloads/Job Postings")
}
finalresult <- bind_rows(results)