You can try this:
filelist = list.files(pattern = ".*.txt")
#assuming tab separated values with a header
datalist = lapply(filelist, function(x)read.table(x, header=T))
#assuming the same header/columns for all files
datafr = do.call("rbind", datalist)
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…