文件(file，"rt")中出错:调用函数时，'description‘参数无效
文件(file，"rt")中出错:调用函数时，'description‘参数无效
提问于 2020-10-01 00:43:43
我已经尝试了多种方法来解决这个问题，但我没有办法了。下面是我的代码：
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)
}当调用函数时，我得到的错误是：
pollutantmean("specdata", 'sulfate', 1:10)
Error in file(file, "rt") : invalid 'description' argument 我不知道错误是什么，我也尝试过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)
Stack Overflow用户
发布于 2020-10-01 02:18:16
如果我正确理解了这个问题，下面的代码是可以工作的。
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)
}页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/64142114
复制相关文章
相似问题
腾讯云开发者
