r - output of filelist and loops for selection of data: moving to next file -

i have problem script on r.

i working on list of file , each of these files has column "date" , "week" number of week matching date.

i save of data per week: 1 file week 1 of year, 1 file week 2, etc.

i wrote script so. goal have output (write.table) number of week in name of file, ie. data_2014_week_1 first week of year.

the script working first week of year, can not have second , 50 other weeks.

here script:

rm(list = ls()) # setwd("c:/users/florent/documents/r/data") filelist <- list.files(pattern="scope_ais_.*\\.csv", recursive=true) i=1 (file in filelist){ data_2014<-read.table(file, header=t, fill=t, sep=",", nrows=20000)  (i in 1:51){  data_2014<-data_2014[data_2014$week == i, ] nrow<-as.numeric(nrow(data_2014))       if(nrow>0){       #data_2014_scope <-     data_2014_scope[order(data_2014_scope$timestamp_pretty) , ]       dir.create(file.path("c:/users/florent/documents/r/data/weeks"),     showwarnings=f)       directory_divisions=paste("c:/users/florent/documents/r/data/weeks/data_2014_wee    k", sep="_",i, ".csv")       write.table (data_2014, directory_divisions, row.names=f, sep=",")       #i=i+1       } else { #i=i+1      }} }   

i have tried i=i+1 move next week can not find solution.

any welcome!