Не удается открыть соединение при записи в цикле - PullRequest
Новая
       10

Не удается открыть соединение при записи в цикле

0 голосов
/ 06 сентября 2018

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

Я ввожу файл, используя: 

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

Сначала я подумал, что это связано с правами администратора, но мне разрешили работать в качестве администратора в качестве теста и получил ту же ошибку.Теперь я в растерянности, по какой причине.

Спасибо заранее!

...