使用read.csv可以读取的最大列数

Question

我想读一个4000列和3000行的csv文件，行长度不同。现在我正在使用下面的代码来读取，但可以读取的最大列数是2067。

read_data <- function(filename) {
  setwd(dir)
  no_col <- max(count.fields(filename, sep = ","))
  temp_data <- read.csv(filename, header = FALSE, sep = ",", row.names = NULL, na.strings = 0, fill = TRUE, col.names=1:no_col)

如何解决这个问题？