complete practice

gistfile1.txt

complete <- function(directory, id = 1:332) {
  
  files_list <- list.files(directory, full.names=TRUE)
      #create list of files
  
  df1 <- data.frame()
      #create empty data frame
  
  df2 <- complete.cases(df1, read.csv(files_list[1]))
      #populate df1 with complete cases from file id=1
  
  nrows(df2)
      #calculate number of rows per id number 1

}