Question

我试图遍历文件夹，读取文件，删除第二行，然后将文件写入新文件夹。我待会再做。我只是将此作为第一步。

我使用以下命令输入文件

files <- list.files(path="c:/users/~/Data/Test", pattern="CRG01*", full.names=TRUE, recursive=FALSE)

然后我正在尝试使用lapply。

lapply(files, function(x) {
  #t <- read.table(x, header=TRUE,fill=TRUE) # load file
  # apply function


  #Manipulate the Power Factors Files
  mydata <-read.csv(x, header = T, stringsAsFactors=FALSE)
  mydata<- mydata[,1:4]
  headers<- read.csv(x, header = F, nrows = 1, as.is = T, stringsAsFactors=FALSE)
  headers<- headers[,1:4]
  x_in <- read.csv(x, skip=2,header = F, stringsAsFactors=FALSE)
  x_in<- x_in[,1:4]
  colnames(x_in)= headers


  # write to file
  write.table(x_in, "c:/Users/~/Data/Test/Output",  sep="\t",
              row.names=FALSE, col.names=TRUE)
})

运行此命令时，出现以下错误。

Error in file(file, ifelse(append, "a", "w")) : 
  cannot open the connection
In addition: Warning message:
In file(file, ifelse(append, "a", "w")) :

 Error in file(file, ifelse(append, "a", "w")) : 
  cannot open the connection

起初，我认为这与管理员权限有关，但是我被允许以管理员身份运行以进行测试，并得到相同的错误。现在我不知所措，原因是什么。

谢谢前进！

循环编写时无法打开连接

0 个答案: