使用fwrite后无法正确格式化文件

Question

这是与此有关的跟进问题： How to get better performance in R: one big file or several smaller files?

我用答案来写文件，但是当我想使用fread将它们读入R时，它们不是格式化的。

require(data.table)
extractStationData <- function(d, OutputName = "BCN-St") {
  d2 <- d[, -1] # remove the column you do not need
  # create empty matrix outside loop:
  emtyMat <- matrix(NA, nrow = ncol(d2), 3)
  colnames(emtyMat) <- c("Time","Bikes","Slots")
  emtyMat[, 1] <- colnames(d2)
  for (i in 1:nrow(d2)) {
    OutputData <- emtyMat
    OutputData[, 2] <- d2[i, ]
    fwrite(OutputData, file = paste(OutputName, i, ".txt", sep = "")) # use fwrite for speed
  }
}

它可能需要一些小的更改，但我自己无法弄清楚。我只希望它读取写入正确列名称的文件。

这是我拥有的一个txt文件：https://file.io/l84Edg（以某种方式它没有在列名的任何地方写

我应该在上面的代码中进行哪些更改以及之后如何读取文件？