Question

我已经广泛研究了这个错误并尝试了所有看起来相关的错误，似乎无法绕过这个看起来相当容易：-s

位置“污染物.R”

> source('~/Desktop/R Projects/assigment1/pollutantmean.R')

脚本'pollutantmean.R'看起来像这样

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

我的工作目录是

> getwd()
[1] "/Users/nickpoels/Desktop/R Projects/assigment1"

我的工作目录包含

> dir()
[1] "pollutantmean.R"         "rprog-data-specdata.zip" "specdata"

“specdata”包含所有.csv文件

现在当我打电话给我的功能时，这就是我一直在想的

> pollutantmean("specdata", "nitrate", 70:72)

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

Answer 1

您可能只需要full.names=TRUE list.files中的pollutantmean()参数。因此，list.files将检索整个路径，无论您提供相对路径还是绝对路径，它都应该有效。

无论我做什么，我都会继续 - >文件错误（文件，“rt”）

1 个答案: