如何将工作目录设置为子文件夹？

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. 您将目录更改为循环中的子目录，但永远不会返回
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)