Supongo que esta es una pregunta para principiantes, pero no he encontrado una respuesta o no he descubierto lo que estoy haciendo mal.

Estoy tratando de leer 20 archivos CSV que están almacenados en un directorio separado usando:

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

Y me sale el siguiente error:

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

Donde nombre de archivo representa el nombre del primer archivo en mi carpeta.

¡Gracias por adelantado!