R：无法读取粘贴文件名的csv数据

Question

I'm writing a universal script to read out the data for an online tool. This is my code so far:

d <- list.files("E:/...path.../demo_subjects")
d <- rep(d, each=4)
f <- c("0.csv", "1.csv", "2.csv", "3.csv")
l <- paste0(d,"/", f)
n <- paste0("E:/...path.../demo_subjects/",l)

for (i in 1:length(d)) {
  x[i] <- read.csv(n, sep=",", header = TRUE)
}

Returns me this error:

Error in file(file, "rt") : invalid 'description' argument

After some intensive googling, I haven't found an answer to this yet. For some people, the issues had to do with invalid file paths, but

file.exists(n)

returns all TRUE.

Answer 1

Try this:

path <- 'yourpath'
d <- list.files(path)
d <- rep(d, each=4)
f <- c("0.csv", "1.csv", "2.csv", "3.csv")
l <- paste0(d,"/", f)
n <- paste0(path,l)
x <- list()

for (i in 1:length(d)) {
  x[[i]] <- read.csv(n[i], sep=",", header = TRUE)
}

Answer 2

As far as I know, argument file in read.csv is not vectorized so probably you forgot to index n: ...... read.csv(n[i], sep = "," .........

Besides, you have to asign this output to an element of a list! So use double claudators for indexing x and initialize an empty list (x <- list()) before the for loop.