文件（文件，“rt”）中的错误：调用函数时“描述”参数无效

Question

I have tried the multiple ways to solve it but I'm out of ideas. Here is my code:

pollutantmean <- function(directory, pollutant, id = 1:332){
        filelist <- list.files(path = "directory", pattern = ".csv", full.names = TRUE)
        value <- data.frame()
        
        for (i in id) {
                dat <- read.csv(filelist[i], header = TRUE)
                value <- rbind(value, dat[[pollutant]])
                
        }
        mean(value, na.rm = TRUE)
}

error I'm getting when calling the function is:

pollutantmean("specdata", 'sulfate', 1:10)
Error in file(file, "rt") : invalid 'description' argument 

I don't know what the error is I have also tried traceback() :

4.file(file, "rt") 

3.read.table(file = file, header = header, sep = sep, quote = quote, 
       dec = dec, fill = fill, comment.char = comment.char, ...) 

2.read.csv(filelist[i], header = TRUE) at pollutantmean.R#6

1.pollutantmean("specdata", "sulfate", 1:10)

Answer 1

If I understand the problem correctly, the following code could work.

pollutantmean <- function(directory, pollutant, id = 1:332){
  filelist <- list.files(path = directory, pattern = "\\.csv", full.names = TRUE)
  i <- seq(1, min(length(filelist), length(id)))
  value <- lapply(filelist[i], read.csv)
  value <- sapply(value, '[[', pollutant)
  mean(value, na.rm = TRUE)
}

Answer 2

        > dir.exists("~/R/Air Pollution Data - US/Data/specdata/")
        [1] TRUE
        > list.files(list.files(path = ~/R/Air Pollution Data - US/Data/specdata/, 
        pattern = '\\.csv'))
        Error: unexpected '/' in "list.files(list.files(path = ~/"
        > list.files(list.files(path = "~/R/Air Pollution Data - US/Data/specdata/", 
        pattern = '\\.csv'))
        character(0)

Result I'm getting