`fread`-ing文本文件，帶有不規則的分隔符

Question

我需要讀一個帶有不規則分隔符的大（> 1GB）文本文件。 一個簡化的例子如下：

1,1,1
1,1,1
...
1,1,1,1
1,1,1
...

不規則線（上面例子中的3個分隔符而不是2個）可能在第一千行之后出現。

read.table使用fill=TRUE和col.names 4個值。 fread with fill=TRUE無法讀取不規則的線條。 添加col.names會導致錯誤。

MWE：

sometext  <-  "1,1,1"
fulltext  <-  paste(rep(sometext, 150), collapse="\n")
fulltext  <-  paste0(fulltext, "\n1,1,1,1") # Irregular line
fulltext  <-  paste0(fulltext, "\n1,1,1")

# Works
mwe.readtable  <- read.table(text=fulltext,
                            sep=",",
                            col.names = paste("V", 1:4, sep=""),
                            fill=TRUE)
# Fails w/ warning
mwe.fread  <- fread(fulltext,
                   sep =  ",",
                   fill=TRUE)

# Fails w/ error
mwe.fread2  <- fread(fulltext,
                   sep =  ",",
                   col.names = paste("V", 1:4, sep=""),
                   fill=TRUE)

有沒有辦法阻止data.table試圖猜測最大分隔符數？