如何在R中的循环期间避免连续标头？

我试图使用R从多个文件（当前示例中为4个文件）中提取信息。每个文件创建一行。我设法在最后的数据帧中得到了4行。然而，每次我都会得到标题。你能帮我知道我能做些什么来避免得到连续的标题，而只保留第一个吗

以下是我的代码以及当前输出：

AR.MOD.files <- list.files(pattern = "AR.MOD")
    for (fileName in AR.MOD.files) {
    AR.MOD <- read.table(fileName, header = FALSE, fill = TRUE)
    AR.MOD.subset1 <- AR.MOD[c(1), 3:4]
    names(AR.MOD.subset1) <- c("Col1", "Col2")
    AR.MOD.subset2 <- AR.MOD[c(3), 3:8]
    names(AR.MOD.subset2) <- c("Col3", "Col4", "Col5", "Col6", "Col7", "Col8")
    AR.MOD.final <- merge(AR.MOD.subset1, AR.MOD.subset2)
    ID <- basename(fileName)
    AR.MOD.final <- merge (ID, AR.MOD.final)
    colnames(AR.MOD.final)[colnames(AR.MOD.final)=="x"] <- "ID"
    print(AR.MOD.final)}

             ID       Col1     Col2   Col3    Col4 Col5  Col6 Col7  Col8
1 File1.MOD 21-12-2017 11:25:37 590,30 1045,54 2,23 43,33 0,63 44,00
             ID       Col1    Col2   Col3    Col4 Col5  Col6 Col7  Col8
1 File2.MOD 21-12-2017 8:40:35 686,12 1240,13 1,89 49,64 0,64 44,00
             ID      Col1    Col2   Col3    Col4 Col5  Col6 Col7  Col8
1 File3.MOD 12-1-2018 8:44:49 665,15 1260,73 1,64 52,03 0,60 51,00
             ID       Col1     Col2   Col3   Col4 Col5  Col6 Col7  Col8
1 File4.MOD 21-12-2017 10:22:01 572,28 936,55 2,73 45,33 0,65 39,00

AR.MOD.files您写道：“我设法在最终数据帧中获得了4行。”
然而，实际上它不是一个完整的数据帧，您要单独打印每一行。如果您同意将整个输出打印一次，那么添加
If
语句可能是一个解决方案，如下所示

    for (fileName in AR.MOD.files) {

        AR.MOD <- read.table(fileName, header = FALSE, fill = TRUE)
        AR.MOD.subset1 <- AR.MOD[c(1), 3:4]
        names(AR.MOD.subset1) <- c("Col1", "Col2")
        AR.MOD.subset2 <- AR.MOD[c(3), 3:8]
        names(AR.MOD.subset2) <- c("Col3", "Col4", "Col5", "Col6", "Col7", "Col8")
        AR.MOD.final <- merge(AR.MOD.subset1, AR.MOD.subset2)
        ID <- basename(fileName)
        AR.MOD.final <- merge (ID, AR.MOD.final)
        colnames(AR.MOD.final)[colnames(AR.MOD.final)=="x"] <- "ID"

         #print(AR.MOD.final)


        if(match(fileName,AR.MOD.files)==1){

            output <- AR.MOD.final

        }else{

            output <- rbind(output,AR.MOD.final)
        }


     }

   print(output)

for（文件名在AR.MOD.files中）{
AR.MOD