for循环读取RBook中以.txt为后缀的所有文件

问题遇到的现象和发生背景

试通过for循环读取RBook中以.txt为后缀的所有文件，打印出所有文件名，以及各数据集的行数，并将所有的数据依次保存在D列表下。
这是什么情况？为什么同样的代码我的就不行？

用代码块功能插入代码，请勿粘贴截图

setwd("C:/Users/huawei/Desktop/R/RBook")
filenames = list.files(path = ".", pattern = ".txt")
D=list()
for (i in filenames)
{D[[i]] <- read.table(file = i, header = TRUE)
print(paste("File",i,"has",nrow(D[[i]]),"rows"))}

运行结果及报错内容

Error in read.table(file = i, header = TRUE) : 输入中没有多出的行
2.
stop("no lines available in input")
1.
read.table(file = i, header = TRUE)