这个问题是在coursera中函数编写作业中遇到的，求助各位大能。

语句如下：complete<-function(directory,id=1:332)
  {
  x<-list.files(directory)

  for (i in id)
    {
     y<-read.csv(x[i])
     z<-na.omit(y)
     nobs<-nrow(z)
     complete_data<-data.frame(id,nobs)

    }
  complete_data
}


我想要达到的效果是输出的complete_data数据框能拥有每一个不同id的csv文件中完整数据的行数

形如：
       id    nobs
1     2    1041
2     4    474
3     8    192

而我所编写的代码由于for循环最后得到的z是最后一个csv文件的完整行数，我想知道如何读取每一个文件，并能够将我想要的信息持续赋值给同一向量而非擦除重写，麻烦各位指正，整个代码有什么问题也请各位指导，谢谢。