Używanie lapply i odczyt.csv na wielu plikach (w R)

Myślę, że jest to trochę pytanie początkującego, ale nie znalazłem odpowiedzi ani nie zrozumiałem, co robię źle.

Próbuję odczytać 20 plików CSV, które są przechowywane w oddzielnym katalogu, używając:

setwd("./Data")
filenames <- list.files()  
All <- lapply(filenames,function(i){
  i <- paste(".\\",i,sep="")
  read.csv(i, header=TRUE, skip=4)
})

I pojawia się następujący błąd:

Error in file(file, "rt") : cannot open the connection
In addition: Warning message:
In file(file, "rt") :
  cannot open file '.\filename.csv': No such file or directory

Gdzie nazwa pliku oznacza nazwę pierwszego pliku w moim folderze.

Z góry dziękuję!

questionAnswers(1)

yourAnswerToTheQuestion