ttal1

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