如何使用R在多个现有csv文件中添加新行

Question

我想将多个csv文件读取到R中，但csv文件没有换行。当我试图读取csv文件时，我收到了这个错误消息"；文件必须以换行符"结尾；因此，为了修复一个csv文件的问题，这个代码运行良好：

# Add blank row
blank <- ""
# csv file name
csv_name <- "testfile.csv"
# writing row in the csv file
write.table(blank, file = csv_name, sep = ";",
append = TRUE, quote = FALSE,
col.names = FALSE, row.names = FALSE)

但当我有多个csv文件(在同一文件夹中(，并且所有文件都有相同的问题时，我不知道如何缩放：它们没有以新行结束。我尝试过，但没有找到一个好的方法来编写循环或使用purrr映射函数。如有建议，不胜感激！

Answer 1

如果您真的想使用R执行此任务，可以使用

my_path <- "."
my_csv_list <- list.files(path = my_path, pattern = ".csv$")
blank <- ""
for (file in my_csv_list) {
write.table(blank, file = file, sep = ";",
append = TRUE, quote = FALSE,
col.names = FALSE, row.names = FALSE)
}

或者代替CCD_ 2-环路

sapply(my_csv_list, 
function(file) 
write.table(blank, file = file, sep = ";",
append = TRUE, quote = FALSE,
col.names = FALSE, row.names = FALSE))

只需将my_path设置为包含.csv-文件的路径。CCD_ 5可能对此有用。