Question

我有一个zip文件，我正在解压缩然后我使用for循环遍历工作目录中的目录，然后将工作目录更改为我刚刚解压缩的新文件夹。但是，它似乎并不喜欢它。

以下是我使用过的两个代码，其中一个代码以错误结束，而第二个代码没有按照我的意愿执行。我想我可能会混合一些Python逻辑？

for (i in list.files("./")){
  if (endsWith(tolower(i),"zip")){
    unzip(i)
    cat("Unzipped",i,"\n")
  }
}

for (i in list.dirs(getwd())){
    cat("This is i",i,"\n")
    Root <- setwd(i)
    cat("This is ROOT",Root,"\n")

}

print(Root)

运行上面代码得到的结果如下：

This is i F:/Testing with R 
This is ROOT F:/Testing with R 
This is i F:/Testing with R/ABC_Data 
This is ROOT F:/Testing with R

正如你所看到的，我希望它遍历文件夹并使ABC_Data成为工作目录，这样我就可以遍历文件，但它并不喜欢它。

我在浏览Stackoverflow上的一些页面后尝试的第二个代码是使用paste0（）修改到下面的，这已经工作到某一点但是后来出错了：

> for (i in list.files("./")){
+   if (endsWith(tolower(i),"zip")){
+     unzip(i)
+     cat("Unzipped",i,"\n")
+   }
+ }
Unzipped GVA_BillData.zip 
> 
> for (i in list.dirs(getwd())){
+     cat("This is i",i,"\n")
+     Root <- paste0(path.expand(i),"/")
+     cat("This is ROOT",Root,"\n")
+   
+ }
This is i F:/Testing with R 
This is ROOT F:/Testing with R/ 
This is i F:/Testing with R/ABC_Data 
This is ROOT F:/Testing with R/ABC_Data/ 
> 
> print(Root)
[1] "F:/Testing with R/ABC_Data/"
> 
> File_count <- 0
> for (a in list.files(Root)){
+   print(a)
+   if (endsWith(tolower(a),"csv")){
+     if (length(grep("service file",tolower(a)) > 0)){
+       Import <- read.csv(a, header = TRUE)
+       for (i in 1:nrow(Import)){
+         Import_Date <- Import[1,4]
+         if (File_count == 0){
+           write.table(c(Import[i,],Import_Date,a),"Output.csv",append = TRUE,sep = ",",row.names = FALSE,col.names = TRUE)
+           File_count <- File_count + 1
+         } else (write.table(c(Import[i,],Import_Date,a),"Output.csv",append = TRUE,sep = ",",row.names = FALSE,col.names = FALSE))
+           }
+         }
+       }
+   }
[1] "1234_126311.csv"
[1] "Service File.csv"
Error in file(file, "rt") : cannot open the connection
In addition: Warning message:
In file(file, "rt") :
  cannot open file 'Service File.csv': No such file or directory
> print("Finished")
[1] "Finished"

因此，正如您在第二个代码中看到的那样，它会跳转到该文件夹但会抛出错误消息。我也试过简单地使用path.expand(i)，但是没有用。

Answer 1

我认为使用setwd()时的作业会导致问题。首先将代码调整为：

for (i in list.dirs(getwd())){
    cat("This is i",i,"\n")
    setwd(i)
    Root <- getwd()
    cat("This is ROOT",Root,"\n")    
}

似乎对我有用。

问题不在于setwd()不起作用，而是分配正在返回旧的工作目录。文档（?setwd）说＆＃34; setwd返回更改前的当前目录＆＃34;。（感谢@Tensibai。）请参阅以下示例：

setwd("c:/")
getwd()
# [1] "c:/"
z<-setwd("c:/Users/")
z
# [1] "c:/"
getwd()
# [1] "c:/Users"

R中的工作目录使用for循环

1 个答案: