# NOT RUN {
for(i in 1:3) {
data <- CO2
data$id_var <- i
write.csv(data,file=paste0("file_",i,".csv"),row.names=FALSE)
}
filenames <- paste0("file_",c(1:3),".csv")
check_files(filenames)
# }
Run the code above in your browser using DataLab