r - 嵌套的“for循环”不适用于打开和聚合 csv 文件

Question

谁能告诉我为什么这些嵌套的 for 循环不起作用

nom_fichiers <- c("_Alias","_Autres_Codes","_Autres_Coord", "_Descriptif","_EntitesHydroBDLISA","_EntitesHydroBDRHFV1",
                 "_Evenements","_Fonctions","_MassesEau","_Proprietaires", "_Qual_Analyses","_Qual_Dossiers_Analyses",
                 "_Qual_Echantillons","_Qual_Operations","_Qual_Prelevements","_Qual_Sites_Mesures","_Stations_Hydro","_Usages")

liste_nom_fichiers<-as.list(as.character(nom_fichiers))

# First for loop    
for (i in seq.int(liste_nom_fichiers))
{

    liste_fichier<-list()

    filelist = list.files(path ="C:/Users/TB60063/Desktop/Export_ADES_POINTS_QUALITE",
                          pattern = paste0(liste_nom_fichiers[[i]], ".txt"), recursive = T)


    # Second for loop       
    for(i in seq.int(filelist)){

      # Opening files

      liste_fichier[[i]]<- read.csv(filelist[i], header = T,sep = "|", dec =".")           

    }

    nom_output <- assign(paste0("tbl", liste_nom_fichiers[[i]]), do.call("rbind", liste_fichier))

    # Enregistrement du fichier brut

    nom_fichier<-paste0("tbl", liste_nom_fichiers, "_", "brut") 
    chemin <- paste0("./data_brutes/", nom_fichier, ".csv")
    write.csv2(nom_output, chemin)


    return(nom_output)

}

如果我手动运行第二个（逐次迭代它可以工作）但是如果我运行整个脚本它就不起作用。

我可能想念一些东西。