Как сохранить все файлы в csv из папки в R?

Question

У меня 1500 .csv файлов в папке, но я не могу прочитать их напрямую.

Если я открою каждый файл, сохраню его вручную, я смогу прочитать его в R.

Следовательно, мне нужно автоматизировать процесс открытия каждого файла и сохранения его в .csv в нужной папке?Любая помощь будет оценена.

fi <- list.files("C:/Users/Desktop/DL/Test", full.names = T)
dat <- lapply(fi, read.csv, row.names = NULL)

Содержимое файла:

    version 1.3.0                           
info    team    Ireland                     
info    team    England                     
info    gender  male                        
info    season  2006                        
info    date    6/13/2006                       
info    venue   Civil Service Cricket Club, Stormont                        
info    city    Belfast                     
info    toss_winner England                     
info    toss_decision   bat                     
info    player_of_match ME Trescothick                      
info    umpire  R Dill                      
info    umpire  DB Hair                     
info    match_referee   CH Lloyd                        
info    winner  England                     
info    winner_runs 38                      
ball    1   0.1 England ME Trescothick  EC Joyce    DT Johnston 0   0
ball    1   0.2 England ME Trescothick  EC Joyce    DT Johnston 0   0
ball    1   0.3 England ME Trescothick  EC Joyce    DT Johnston 0   4

Answer 1

Я предполагаю, что вы что-то делаете с CSV-файлами перед их сохранением, потому что в противном случае это было бы непродуктивно и было бы лучше просто создать сценарий для копирования файлов.

Вы можете использовать lapply с write.csv следующим образом:

fi<-list.files("C:/Users/Desktop/DL/Test",full.names=T) 

dat<-lapply(fi, read.csv, row.names = NULL)

lapply(seq_along(dat), function(i) {
    write.csv(dat[i], paste0('address/to/file', i,'.csv'))
  })