complete.cases不返回所需的结果

Question

我是这门语言的新手，并尝试使用代码。我正在尝试编写一个代码来读取文件夹中的csvs并计算/打印每个文件的完整观察数（没有NA的完整行）。我写了这段代码：

complete <- function(directory, id = 1:332) {

positivematch <- NULL

setwd(file.path("c:/Rpro/",directory))

for (i in id) {
    filer <- paste(sprintf("%03d", as.numeric(i)), ".csv", sep="")
    filed <- read.csv(filer)
    calc <- complete.cases(filed)
    positivematch[i] <- sum(calc == TRUE)
    }


out <- data.frame(id = id, nobs = positivematch)
return(out)
}

我得到的输出是：

  id nobs
1  3   NA
2  3   NA
3  3  243

而不是

  id nobs
3  3  243

你能帮忙吗？