我想在我的data.table的顶部添加一行,同时将其导出到csv!
library(data.table) cat("Source Date: 01/01/2020\n", file = "dt.csv") dt <- data.table(a = 1:5) fwrite(dt, "dt.csv", append =TRUE)
zhte4eai1#
我不确定我是否正确理解了你的问题,但是在fwrite函数中添加col.names=TRUE:
library(data.table) cat("Source Date: 01/01/2020\n", file = "dt.csv") dt = data.table(a = 1:5) fwrite(dt, "dt.csv", append = TRUE, col.names = TRUE)
如果你想读取这个文件,你需要跳过第一个“源日期...”行:
> fread("dt.csv", skip = 1, header=TRUE) a 1: 1 2: 2 3: 3 4: 4 5: 5
1条答案
按热度按时间zhte4eai1#
我不确定我是否正确理解了你的问题,但是在fwrite函数中添加col.names=TRUE:
如果你想读取这个文件,你需要跳过第一个“源日期...”行: