函数不会在for循环中返回sum（）

Question

我有一个小函数来计算某些文件中完整观察的数量，如下所示：

complete <- function(id = 1:332) {
   files <- list.files(pattern="*.csv")[id]
   nobs_v <- vector(mode="integer")
     for (i in length(id)){
       nobs_v[i] <- sum(complete.cases(read.csv(files[i])))
     }
   nobs_df <- data.frame(id = id, nobs = nobs_v)
   return(nobs_df)
}

完成（c（1,4,5）我得到：

  id nobs
1  1   NA
2  4   NA
3  5  402

但是文件1和4包含数百个干净的记录。任何人都可以找到我搞砸的地方吗？