write.csv Мессинг имена заголовков при записи кадра данных на диск

Question

Я пишу на диск кучу кадров данных с использованием write.csv:

data_frames <- Filter(function(x) is(x, "data.frame"), mget(ls())) 

for (i in 1:length(data_frames)) { 

file_name<- paste0("data/to_save/",names(data_frames[i]),".csv") 

write.csv(data_frames[i], file = file_name, row.names = FALSE, col.names = TRUE) 

} 

Вопрос заключается в том, что заголовок перепутались добавление файла в каждый ColName как это (открыт файл с помощью блокнота):

"April2016_file.customer_id","April2016_file.customerName","April2016_file.customerSurname"....... 

такое же поведение с помощью write.table и используя export скрипт из пакета rio

Требуемый результат:

"customer_id","customerName","customerSurname".... 

Answer 1

Мы должны извлечь list элементы с [[ в [ еще list с одним data.frame

for (i in seq_along(data_frames)) { 
    file_name<- paste0("data/to_save/",names(data_frames[i]),".csv") 
    write.csv(data_frames[[i]], file = file_name, row.names = FALSE, col.names = TRUE) 
}